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The purpose of this manual is to provide the user with programmer-oriented 
information regarding the various operating environments available under the 
GCOS 6 Mod 400 Operating System and programmer procedures for terminal 
startup and access to the system. Also contained in this manual are examples of 
the use of various system software components: the editor, macro preprocessor, 
assembler, COBOL and FORTRAN compilers, and the sort program. 

This material is presented in 9 sections, as outlined in the Introduction. The 
Introduction also presents suggested usages of the Mod 400 manual set for 
application programmers, system programmers, and operators. 
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Section 1 


Introduction 


The GCOS 6 Mod 400 operating system for the Models 6/30 and 6/40 minicomputers provides a 
comprehensive set of system services which form a base for executing user-written applications, 
Honeywell-supplied applications, and program development tools. It provides an online, inter- 
rupt-driven operation for multiple users and a single, low-priority batch operation typically 
used for program development and associated activities. 


A number of different operating environments are possible, controlled in part by options 
exercised at system configuration, and in part by options chosen by the system operator at 
startup or at various times during the operating day. These environments are more fully 
described in Section 2, “Operating Environments.” 


Access to the system by users can be achieved in a variety of ways, again depending in part on 
system configuration options selected. These options are concerned mainly with the definition of 
local and/or remote terminal devices and how they are connected to the system. These are 
described in Section 3, “User Terminal Startup.” Other access options, normally under the 
control of the system operator, are concerned with the procedures by which a user identifies 
himself (logs in) to the system through a connected terminal. This subject is treated in Section 4, 
“User Access to the System.” 


The remaining sections comprise descriptions and examples of the use of various system 
components: the Editor (Section 5), the Assembler and Macro Preprocessor (Section 6), the 
COBOL Compiler (Section 7), the FORTRAN Compiler (Section 8), and the Sort component 
(Section 9). Each of these sections presents terminal and/or line printer listings representing the 
actions performed. In these listings, heading lines may vary in detail depending on the 
component that initiated the listing or, in some cases, may be omitted. However, in actual use, 
the user will see heading lines consisting of three major fields of information, as shown below. 


1. System Identification: GCOS6 MOD400- S rrr-mm/dd/hhmm 


L 
S — SAF 
L — LAF 
rrr — Release number of the operating system 
mm/dd/hhmm — Date/time when operating system was created (month, day, 


hour, and minute) 
2. Component Identification: xxxxx-rrrr-mm/dd/hhmm 


xxxxx — Component name 
rrrr — Revision number of component 
mm/dd/hhmm — Date/time that specified revision of component was created 


(month, day, hour, and minute) 
3. Time of program execution: yyyy/mm/dd hhmm:ss.t 


Date/time of program execution (year, month, day, hour, minute, second, and tenth of 
second) 


GUIDE TO USING THE MANUAL SET 


This guide to the manuals is arranged according to functions that might be performed by an 
applications programmer, a systems programmer, or an operator. As used in this guide, the 
applications programmer writes applications programs; the system programmer configures the 
system and defines the environment for each application; and the operator operates the system 
from the operator terminal. These functions could be performed by three different persons or by 
the same person serving in the different capacities. 
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APPLICATIONS PROGRAMMER’S MANUAL GUIDE 


Figure 1-1 illustrates the suggested sequence in using the manuals. If you wish to start using 
the system by writing an application program, begin by using the Programmer's Guide manual. 
It illustrates: (1) various ways to gain access to the system, (2) a sample Editor session, and (3) 
for application languages, the procedure for performing program preparation and execution. 
Working with the small subset of commands used in the examples is a good approach to learning 
the system command set. This approach for getting started assumes that a system programmer 
has already configured and started up a suitable application environment. While using the 
system, you may wish to familiarize yourself with the system facilities described in the System 
Concepts manual. 


Through examples, the Programmer's Guide illustrates how to use the system facilities. 
Other manuals provide reference material. The Program Preparation manual contains Editor 
directives (statements) to create and update an application language source unit. For each of the 
languages the appropriate language reference manuals contain the description of the language 
statements. Operating system dependencies, if any, that affect how you write the application 
are described in the Programmer’s Guide. If the application uses communications, refer to the 
Communications Processing manual. Read the Data File Organizations and Formats manual if 
you require a better understanding of a language-supported file organization that is to be used 
in an application, or if you must calculate the size of a data file. You can use Monitor macro calls, 
as described in the System Service Macro Calls manual, in assembly language programs. Before 
your program can be entered for execution, it must be linked as described in the Program 
Execution and Checkout manual. 


For program compilation or assembly and execution, the procedures described in the 
Programmer's Guide might be sufficient. To obtain more control over the execution of your 
program or utilize the system facilities more completely or efficiently, use the commands 
described in the Commands manual. If you wish to use the operator terminal, read the 
Operator’s Guide. In many cases, the description of commands must be supplemented by system 
concepts described in the System Concepts manual. Rather than read all the conceptual material 
at one time, you may find it more meaningful to refer to it in conjunction with the appropriate 
reference material. The Commands manual also describes the utilities. An assembly language 
program, the Patch, Debug, and Dump utilities are described in the Program Execution and 
Checkout manual; file transmission from Level 6 to a host system is described in the File 
Transmission manual appropriate to the host system. Error messages and return status codes 
are listed in the System Messages manual. 


SYSTEM PROGRAMMER’S MANUAL GUIDE 


Figure 1-2 illustrates the suggested sequence for using the manuals. The System Building 
manual provides you with the configuration directives (statements) and startup procedures to 
configure and start up a MOD 400, a Remote Batch Facility (RBF), or a Data Entry Facility 
(DEF) system. You must know the conceptual material in the System Concepts manual in order 
to successfully use the configuration directives. To tailor an applications environment suitable 
for the intended application, use the operator commands described in the Operator’s Guide 
manual. Error messages are listed in the System Messages manual. If you are working with an 
application that runs under the BES operating system, the System Concepts manual contains 
MOD 400 and BES compatibility considerations. 


OPERATOR’S MANUAL GUIDE 


Figure 1-3 illustrates the suggested sequence for using the manuals. Specific operator job 
functions must be determined by each installation; a large system might have a person assigned 
as an operator; a small system might have each programmer also act as an operator. The 
Operator’s Guide indicates the system procedures performed through the operator terminal and 
describes operator commands used in system operation. 


The Programmer’s Guide contains examples using commands (described in the Commands 
manual) that are similar to operator commands. The System Concepts manual provides an 
understanding of the operating system. Note that the Operator’s Guide describes using the 
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APPLICATIONS PROGRAMMER 


PROGRAMMER'S GUIDE 


SYSTEM CONCEPTS 


GETTING STARTED 
SAMPLE EXECUTION ENVIRONMENTS 


SAMPLE EDITOR SESSION INTRODUCTION TO SOFTWARE 

SAMPLE PROGRAM PREPARATION AND FACILITIES : 

EXECUTION SESSIONS OVERVIEW OF SOFTWARE 
COMPONENTS 


ASSEMBLY, COBOL, FORTRAN, 
RPG APPLICATION PROGRAMMER 


PROGRAM PREPARATION feperaty Sal 
» 


EDITOR COMMUNICATIONS 


DATA FILE ORGANIZATIONS 


LANGUAGE REFERENCE AND FORMATS 


FILE ORGANIZATION 
LANGUAGE DESCRIPTION 
DESCRIPTION FILE AND VOLUME 
FORMATS 


SYSTEM SERVICE 
PROGRAMMER'S GUIDE MACRO CALLS 


OPERATING SYSTEM MONITOR CALLS 
DEPENDENCIES DATA STRUCTURES 
DEVICE DRIVERS 


PROGRAM EXECUTION 
AND CHECKOUT 


LINKER 


OPERATOR’S GUIDE 


OPERATOR TERMINAL 
COMMANDS USAGE 


EXECUTION COMMANDS 
UTILITIES 


SYSTEM CONCEPTS 


DETAILED SYSTEM 
CONCEPTS 


PROGRAM EXECUTION 
AND CHECKOUT 


PATCH, DUMP, 
“ DEBUG 


SYSTEM MESSAGES 


ERROR AND STATUS 
MESSAGES 


FILE TRANSMISSION 


LEVEL 6 TO HOST 


Figure 1-1. Applications Programmer Guide to Manuals 
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SYSTEM PROGRAMMER 


SYSTEM BUILDING 


CONFIGURATION AND STARTUP PROCEDURES 


SYSTEM CONCEPTS 
FOR MOD 400, REMOTE BATCH FACILITY (RBF), 


AND DATA ENTRY FACILITY (DEF) OPERATING SYSTEM 
CONCEPTS 


OPERATOR’S GUIDE 


OPERATING ENVIRONMENT 
COMMANDS 


SYSTEM CONCEPTS SYSTEM MESSAGES 


MOD 400 AND BES ERROR MESSAGES 
COMPATIBILITY 


Figure 1-2. System Programmer Guide to Manuals 


OPERATOR 
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PERATOR PROCEDURE 
GhERATOR SOMMANGS ° COMMANDS USED IN EXAMPLES 


SYSTEM CONCEPTS 
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SYSTEM MESSAGES 


ERROR MESSAGES 


Figure 1-3. Operator Guide to Manuals 
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operator terminal for operator functions to enter operator commands to the system task group, 
or for user functions to enter commands to a user task group. To run the utilities, use the 
commands (described in the Commands manual) entered through the operator terminal func- 
tioning as a user terminal. Error messages are listed in the System Messages manual. 


am, 


RBF AND DEF USER MANUAL GUIDE 


Figure 1-4 illustrates the suggested sequence for using the manuals. The system programmer 
configuration functions have been done and the system is ready to be used for Remote Batch 
Facility (RBF) functions or Data Entry Facility (DEF) functions. The Programmer’s Guide 
manual provides sample login execution environments typical of ones that might be at your 
facility. The Remote Batch Facility User’s Guide is used for RBF operations and the Data Entry 
Facility User’s Guide is used for DEF operations. 


PROGRAMMER'S GUIDE 


EXECUTION ENVIRONMENTS 


RBF USER DEF USER 


RBF USER’S GUIDE DEF USER'S GUIDE 


REMOTE BATCH DATA ENTRY 
DESCRIPTION FACILITY DESCRIPTION 


Figure 1-4. RBF and DEF User Guide to Manuals | 
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Section 2 


Operating Environments 


The Mod 400 operating system allows a wide variety of operating environments, ranging from 
a single operator-controlled configuration to one in which the operator, other users, or a 
combination if both can control the configuration at any time during the operating day. This 
range of operating environments is described in this section. 


OPERATOR-ONLY ENVIRONMENT 


This environment is one in which a designated operator and a limited number of users 
(typically programmers developing application programs) use the system on a first-come first- 
served basis for developing and testing programs. All work is done through the operator 
terminal, through either the system task group or a single online task group created by the 
system startup procedure. Certain functions can be performed through either of the two task 
groups; others can be done only through the system task group or the online task group — refer 
to the Operator's Guide and the Commands manuals for details on which functions can be 
performed from each task group. 


ALL-ONLINE ENVIRONMENT 


An all-online environment is one in which one or more users can concurrently use the 
facilities of the operating system to perform interactive tasks of any kind permitted by the 
command language described in the Commands manual, plus any user applications that can be 
invoked through the command processor. This latter category consists of user programs in the 
form of bound units that are called from a task group in which the command processor is 
declared as the lead task when the task group is created. A task group can also be created by the 
operator or another online user, declaring the application bound unit as the lead task; in this 
case the creation of the task group and its activation results directly in the execution of the 
declared bound unit, without the need to enter its name as a command. 


Anexample of this kind of environment is one in which several task groups have the command 
processor as lead task and one or more other task groups have specific application programs such 
as the Data Entry Facility and user-created programs as lead tasks. The former task groups can 
be used for editing source program files, entering requests for jobs to be run in the batch task 
group (see below), requesting printouts of files, etc. Concurrent with these activities can be the 
execution of the user application programs constituting the latter set of task groups. From the 
user’s point of view, each task group has the appearance of having control of the system. 


ONLINE/BATCH ENVIRONMENT 


This environment differs from the all-online environment only in that, in addition to the 
creation of the online task groups, a batch task group has also been created by the designated 
operator from the operator terminal. Once this task group has been created, any online task 
group having the command processor as its lead task can enter requests for jobs to be run 
through the use of the EBR (ENTER BATCH REQUEST) command. Typical of such batch jobs 
would be requests for compilations, links, application program checkout runs, and the like. 


Creation and utilization of the batch task group requires the existence of at least the 
designated operator terminal, through which the batch task group is created and through which 
requests to it can be entered. Jobs run in the batch task group are normally controlled by a 
previously created file containing commands directing the execution of the jobs, and not by 
interactive dialog from a terminal. Section 4 contains additional information on the use of the 
batch task group. 
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DEDICATED APPLICATION ENVIRONMENT 


This is an environment in which system startup or operator action subsequent to startup 
results in the creation of one or more task groups in which a user application, and not the 
‘command processor, is the lead task. In such an environment no interactive processing takes 
place; rather, whatever processing occurs is dependent on the nature of the application — e.g., 
data entry, an inventory application, etc. 


MIXED ENVIRONMENT 


The Mod 400 system does not restrict the user to any one of the foregoing environments at any 
given time. Given a large enough system, any of these can be combined with any others to 
provide concurrent interactive, batch, and dedicated operations on a selected terminal basis. 
That is, a selected set of terminals can be associated with interactive tasks, while others can be 
related to the dedicated application tasks. 
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Section 3 


User Terminal Startup 


Terminal startup procedures vary according to the type of terminal and whether the terminal 
is anoncommunications or a communications terminal. A noncommunications terminal is one 
that is connected to the system through the multiple device controller (MDC), while a 
communications terminal is connected through the multiline communications processor 
(MLCP). An MLCP-connected terminal can be connected either through a modem or through a 
dial-up telephone line. In the former case, when the modem is made ready, the terminal is 
connected and ready for operation. With a dial-up connection, the user must dial the number 
which connects the telephone to the system and wait for the signal that indicates the connection 
is made. For an MDC-connected terminal, simply turning on the power to the terminal suffices 
to connect it to the system. Subsequent actions depend on whether or not the listener/login 
processor is activated, and whether the terminal is declared by the operator to be associated with 
a specific task group. 


STARTUP WITH THE LOGIN FACILITY 


If the operator has activated the listener/login processor, and the terminal being started up is 
one which is monitored by the login processor, then the user must log in using the procedures 
described in the Operator’s Guide manual after performing the actions required for physically 
connecting the terminal to the system. When the connection is made to an MLCP-connected 
terminal, the system will display a system identification message, a message of the day if one is 
defined, and indicate that it is ready to accept a login request. For an MDC-connected terminal, 
displays occur only if the terminal is active when the login processor is activated. 


TASK GROUP-SPECIFIC TERMINAL STARTUP 


If a terminal is declared by the operator to be associated with a specific task group, and is not 
monitored by the login processor, then, when the terminal is connected, it is ready to accept 
whatever input or output is dictated by the logic of the task’s execution. If the command 
processor is the lead task, a ready message will be issued, indicating that the terminal is ready to 
accept commands. If a user application is the lead task, it should issue a message to the terminal 
indicating that it has recognized the availability of the terminal and is ready for execution. 
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Section 4 


User Access To The System 


Once a terminal has been connected to the system as described in Section 3, a user can gain 
access to the system in any of several ways. Which of these ways is used at any given time 
depends upon operator actions taken during and after system startup. Examples of various 
access procedures are given in this section. Each example states any prerequisite operator 
actions which would have been performed. 


ACCESS BY LOGGING IN 


Configuration and system startup have been done. The operator, through the system task 
group, has activated the login function as described in the Operator’s Guide manual. The 
terminal is one which is connected through the MDC, and was active when the login function 
was activated. The system message of the day has been displayed and the login prompter 
message has been printed. The user’s login procedure at this point depends on the terminal login 
characteristics for this terminal. Procedures are described below. 


DIRECT LOGIN TERMINAL 


In addition to the message of the day, if the command processor is the lead task, the ready 
message will have been displayed, and no further action is required. The user can begin to enter 
commands. 

If an application is the lead task, further action, if any, depends on the characteristics and 
logic of the application. 


ABBREVIATED LOGIN TERMINAL 


After the login prompter message has been issued, the user enters a one-character abbreviation 
such as 


A 


If the login line corresponding to the abbreviation “A” indicates that the command processor 
is the lead task, the system responds with the ready message, and the user can then begin to 
enter commands. 

If an application is the lead task, further action, if any, depends on the characteristics and 
logic of the application. A terminal that accepts an abbreviated login also accepts a full login 
command line. 


FULL LOGIN TERMINAL 


After the login prompter message has been issued, the user must enter a full login line as 
described in the Commands manual. If the login line specifies or implies that the command 
processor is the lead task, the system responds with the ready message, and the user can begin to 
enter commands. 

If the lead task is an application, further action, if any, depends on the characteristics and 
logic of the application. 
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COMMAND PROCESSOR AS LEAD TASK 


For a user named W. Smith to log in to the system, specifying the command processor as the 
lead task, a login line such as 


L SMITHW -HD *VOL22>SMITHW 


could be used, where, “ VOL22>SMITHW is the working directory pathname. As soon as the 
ready message is displayed, the user can begin to enter commands for either serial or concurrent 


execution. In particular, if the -HD argument was not used, the working directory can be 
specified with a CWD (CHANGE WORKING DIRECTORY) command 


CWD *VOL22>SMITHW 


APPLICATION AS LEAD TASK 


For the same user to log in specifying a task other than the command processor, his login line 
could be 


L SMITHW -PO MS_UPDATE -HD %*VOL22> SMITHW 


where MS_UPDATE is the name of the bound unit which is to be the lead task. The bound unit is 
located in the directory “ VOLZ2>SMITHW. If it is located in some other directory, a full 
pathname must be used as the argument, such as 


L SMITHW -PO *VOL23>MS_UPDATE -HD %*VOL22>SMITHW 


After the login line is processed, control rests with the application. It is strongly advised that 
the application issue some kind of message indicating that it has been successfully loaded and is 
ready to begin, or has begun, execution. It may be simply an informative message or a message 
requesting some action on the part of the terminal user. 


ACCESS THROUGH THE OPERATOR OR ANOTHER USER 


The system operator or an online user can create and activate an online task group through 
the use of the CG (CREATE GROUP) and EGR (ENTER GROUP REQUEST) commands, or 
through the SG (SPAWN GROUP) command. The application being run in this task group can 
be in the form of a series of commands implying either serial or concurrent execution, as shown 
below. 


SERIAL EXECUTION OF APPLICATION TASKS 


The operator or another user has created and activated a new online task group whose lead 
task is the command processor, and whose command-in file is the MDC- or MLCP-connected 
terminal being used by the new user. 

As soon as the ready message is displayed, the new user can begin to enter commands. After 
each command request is terminated, indicated by the display of the ready message, control 
returns to command input level and another command can be entered. The following example 
shows the entry of commands to initiate a COBOL compilation, the assignment of the user-out 
file to a line printer, and the printing of the COBOL compilation listings. 

COBOL PROGA {ctl_arg] Invoke the COBOL compiler 


compiler responses 
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RDY: Indicates end of compilation 


FO >SPD>LPTO01 Assign user-out to line printer 

RDY: Indicates assignment complete 

PR PROGA.L Invoke PRINT command to print compilation output 
RDY: Indicates printout complete 


CONCURRENT EXECUTION OF APPLICATION TASKS 


The operator or another user has created and activated a new online task group whose 
lead task is the command processor, and whose command-in file is the MDC- or 
MLCP-connected terminal being used by the new user. 

As soon as the ready message is displayed, the new user can begin to enter commands. 
This example shows the entry of commands to initiate a COBOL compilation, the 
assignment of the user-out file to a line printer, and the printing of a file which is 
unrelated to the compilation, and thus has no time dependency upon completion of the 
compilation. 


ST 1 -EFN COBOL (ctl arg] Invoke COBOL compiler task at relative level 1 


RDY: Indicates completion of the ST command; 
compilation is in progress 

FO >SPD>LPT01 Assign user-out file to line printer 

RDY: Indicates assignment complete 

ST 3 -EFN PR -ARG FILE1 Invoke PRINT task to print FILE1, unrelated to 
compilation 

RDY: Indicates completion of the ST command; printing 


is in progress concurrent with compilation 


This is an example of multitasking. The responses from the COBOL compiler, indicated 
in the previous example, will be interspersed with other input and output lines, depending 
on when they occur in relation to these lines. The user should always ensure that a ready 
message has occurred in response to his last command entry before making another entry. 


CONCURRENT EXECUTION FROM SEVERAL TASK GROUPS 


Several task groups have been created and activated, each associated with a different 
command-in terminal, and each having the command processor as its lead task. 


As soon as the ready message appears at each terminal, the user at that terminal can 
begin to enter commands to do serial or concurrent application execution. The task groups 
are concurrently active for execution and contend with each other for system resources. 
Each user appears to have control of the system. 


EXECUTION OF AN APPLICATION FROM THE BATCH TASK GROUP 


An application environment has been specified consisting of several online task groups 
and the batch task group (whose lead task is the command processor). 


A user can enter one or more EBR (ENTER BATCH REQUEST) commands from each of 
the online task groups to obtain processing in the batch task group. These requests are 
queued and will be satisfied on a first-in first-out basis. The EBR requires a command-in 
file containing commands to be executed in the batch task group. The file is normally 
disk-resident in the user’s working directory having previously been created. If a terminal 
were specified as the command-in device, the user at the terminal must wait to enter a 
command, until the command processor processes this EBR command. Otherwise, batch 
processing will stall waiting for this batch request to complete. 
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To request is to execute the command file, PAYR_IN, on directory “ZSYSO1 >IW. The 
application is to compile, link, and execute an application program PAYROLL. 


EBR PAYR_IN -WD “ZSYSO1>IW 
The file PAYR_IN contains the following commands: 


COBOL PAYROLL -LO -COUT >SPD>LPT01 
LINKER PAYROLL -COUT >SPD>LPTO01 
LIB “ZSYSO2>ZCRT 

LINK PAYROLL 

MAP;QT 

GET DEPT4 2 

GET >SPD>LPT02 3 

PAYROLL 

BYE 


Any time after the file PAYR_IN has been created, it can be invoked through an EBR to 
control batch execution. The command file can contain any combination of legitimate 
commands, such as compile/link/execute sequences, including any necessary file control 
commands (GET, REMOVE); or file print/dump commands. The main constraint is that the 
commands be entered into the file in the same manner as if they were being executed from 
the online terminal, keeping in mind any time dependencies that might exist among 
various tasks. Responses from the invoked commands that would normally be written to 
the user terminal in an online environment are written to a file PAYR_IN.AO in the working 
directory of the user who issued the EBR command. 


EXECUTION FROM THE DATA ENTRY FACILITY (DEF) 


One or more task groups whose lead task is the Data Entry Facility (DEF) have been 
spawned. 


When DEF has indicated at the terminal that it is ready to accept data entry actions, the 
user can begin to enter directives. No other preliminary actions are required. 


Refer to the Data Entry Facility User’s Guide manual for details on the operation of the 
Data Entry Facility. 


It should be noted that the presence of the Data Entry Facility in no way restricts the 
presence of other online task groups or the batch task group. These functions can be carried 
on concurrently as described in the preceding paragraphs. 


ACCESS THROUGH THE OPERATOR TERMINAL 


A special case of system access is that in which all interactive and/or batch executions 
are initiated through the operator terminal. The major difference between this execution 
mode and those described previously is that the interface to the system is through the 
Operator Interface Manager (OIM), described in detail in the Operator’s Guide manual. The 
most user-visible aspect of this mode is the issuance by the OIM of task group id 
designations and message numbers, which require, in many cases, task group id and 
message number entries from the operator terminal in response. 


The operator terminal is the only way in which the system as initially delivered to the 
user can be accessed. Initial startup results in the creation of the system task group ($S) 
and one online task group ($H). For small system environments in which the operator and 
one or more users (e.g., programmers writing and debugging their own programs through 
the operator terminal on a first-come, first-served basis) share the operator terminal, this 
type of startup, appropriately modified for the physical system configuration, may be 
sufficient. 
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Typically, the operator in this kind of configuration could initiate other task groups in 
any of the combinations described in Section 2 through the system task group, and also use 
the $H task group for any function which is not normally done in the system task group 
(e.g., editing files, assembling or compiling, linking, debugging, and the like). In particular, 
in the originally-released system, the $H task group is used to construct new CLM_USER 
files for system startup, and STARTUP.EC files for use during the startup process. There is 
no requirement that the existence of the $H task group be maintained permanently — the 
originally-released STARTUP.EC file which results in tne creation of the $H task group 
can be modified at any time to delete the function of creating this task group. 


Any of the operations described above can be done through the operator terminal from an 
online task group such as $H, or any other online task group created as a function of system 
startup or at some later time, and specifying the operator terminal as its command-in file. 
Most of the examples in Sections 5 through 9 show operations using the online task group 
$H. They illustrate the issuance of the task group identification prefix by the OIM in 
operator terminal typeouts, and in some cases the changing of the OIM default task group 
identification to $H, eliminating the need to enter the prefix explicitly when issuing 
commands to this task group. If these same operations were done in a task group associated 
with a terminal other than the operator terminal, the prefixes would not be issued nor need 
to be specified at that terminal. 
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tilllim, 


Section 5 
Using the Editor 


This section illustrates how Editor directives are used to modify the contents of four files, 
merge files into one file, and place macro routines in the macro library directory. The Editor 
directives are in file SMPCMDFL; the four files to be altered are SMPMO1 (example 1), 
SMPMO02 (example 2), SMPM03 (example 3), and SMPM04 (example 4). The examples are 
shown below. SMPMO01 and SMPM02 are altered and written to files SMMPL1 and SMMPL2, 
respectively, and then combined to form fileSMPMAC.P containing macro statements and calls 
to be processed by the macro preprocessor. SMPM03 and SMPMO04 are altered and written as 
files SMMPL3 and SMMPL4, respectively; they are again altered and written as macro library 
routine files SAMPL1 and SAMPL2, respectively, into the MACRO <EXEC_LIB directory to be 
used during macro preprocessing. Editor output directed to the operator’s terminal is shown in 
an operator’s terminal typeout. 


EDITOR DIRECTIVE DESCRIPTION 


The following is a line-by-line explanation of the action taken by the Editor when it processes 
the directive file) “\SYSMAC>SMPCMDEL, of Figure 5-1, and an explanation of the operator 
terminal typeouts displayed in Figure 5-2. Editor directive lines are identified by line number. 
In the typeout, the response to these directives begins after the line ($H) EDIT-0100-11/21/0827. 
The default working directory is “SYSMAC so that either a full pathname of the form 

“SYSMAC>SMPM04 or simple pathname SMPMO1 can be used. 


R *SYSMAC>SMPMO1 
X 


6,9CLE SETA ' PROGe.START2(,]) NAME! 
L4 SETA EQU 
LS SETA RESV 
L6 SETA TEXT 
L7 SETA XNEF 
LF 
el LIBM TEXEC™LIB!,SAMPL1,SAMPL2IUF I? 
e717 SK (CSMMPLI1) 
X 
1,5DX 
R SMPMOQe2 
Pel 3VL/SRLS mL eCSLSGLSAL/ M97 .SIHL'I OL IPs 
123M(SMMPL2) Xx 
R SMPMO3 
8,17S/SETB/SETA/B,17P 
1,35M(SMMPL3) x 
R *SYSMAC>SMPM04G 
X29A | IFE 27G7,?LC,IFEI 
FAIL 
ENDIT TFNL ?P2,?LC,* 
IFEL NULLUF 
/SS,eLE/L/SSS/LO/°*/LD 
12,SK (SMMPL4) 
X1,$0 
B(SMMPL 1) 
W *SYSMAC>SMMPL 1 
1,30Xx 
B(SMMPL2) 
N *SYSMAC>SMMPL2 
1,380 


OOnOouU LWP 


Figure 5-1. Sample Editor Directives in File SMPCMDFL 
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B(SMMPL 3) 

W *SYSMAC>SMMPL3 

1,0 

BCSMMPL 4) 

W “SYSMAC>SMMPL4G 

1,30%X 

R SMMPL 1 
JINSERT/LO/ADD L7/LD 
1i5R SMMPLe 

X52L0 

E FO >SPDA>LFPT0OO0 

1,SLW SMPMAC.P 

1,$0 

R SMMPL3 
X/L4/3/LE/S/SETB/SETA/ 
1,SLW *ZO00B02>LDD>MACROPEXEC™LIB>SAMPL1 
1,80 

R SMMPLG 

/OLET/D 

Q 

1,S$LW *Z00B02>LDD>MACROPEXEC™LIB>SAMPLe 
x 


E FO 
Q 


Figure 5-1 (cont). Sample Editor Directives in File SMPCMDFL 


BO GROUPSD 

(SD.)ON-LINE DEBUG REV. 1976/11/20 1115 O04 SYSREV. 4014 
C sSHs 

RDN 

(SH) RDYs3 

CVD “SYSMAC 

(SH)RDY:s 

LwD 

(SH) “SYSMAC 

(SH)RDYs 

ED -LINE.LN 75 -IN *SYSMAC>SMPCMDFL 

(SHO EDIT 0120 

(SH) 16 => (0) *SYSMAC>SMPMO! 

(SHY EDIT MODE 

(SH) 2 

($H) 18 -> MOD (0) “SYSMAC>SMPM01 

(SH) 18 (SMMPL I) 

($H) 0 -> €0) “SYSMAC>SMPM01 

($H) (SMMPL1 > 

(SH) 
(SH) 
(SH) 
(SH) 
(SH) 
(SH) 
(SH) 
(SH) 


8 
& 
* THESE UNPROTECTED COMMENT LINES WILL BE DROPPED 
WHEN MACRO PREPROCESSEDe 


#L4 ?G1 €Gi INITIAL VALUES) 
#L5 P?IXC#LEs ?PE)?7GB?P 1 
#L6 ?P37VL635)?P4#LZ#La 
#L7 ?G4 

($H) #L7 ?P6?P 8? GB?7AL C?PC)?P7 
(SH) #Lé ?SS8¢?P4s721) 

(SH) #L9 PUP (11) 

(SH) #LB ?G7 

($H) #L4 ?P94+7G3 

($H) 

(SH) 

(SH) (0) “SYSMAC>SMPM02 

(SH) CSMMPLI) 

(SH) (SMMPL2 > 

(SHOL4A SETA 

CSHILS SETA 

(SH) L6 SETA 

(SHIL7 SETA 

(SHILS SETA 


i 
i 
2 
3 
4a 
S 
6 
7 
8 
9 
10 


Figure 5-2. Terminal Responses from Sample Editor Directives of Figure 5-1 
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fo 
( / 
\ 7 

| 


(SH) LO 

(SH) LA 

(SH) LB 

($H) LC 

(SH) LD 

(SH) 8 -> 
(SH) 18 
(SH) 36 
(SH) 45 
(SH) 34 => 
(SH) 18 
(SH) 36 
(SH) 4S 
(SH) 28 


SETA 
SETA 
SETA 
SETA 
SETA 


(SH) 10 DELTS 


LB 
BBT 
SLD 
om © 
tZ°32°) 
(0) “SYSMAC>SMPMO3 
CSMMPLI ) 
¢SMMPL2 ) 
CSMMPL3) 
C0) “SYSMAC>SMPM04 
CSMMPLI ) 
€SMMPL2 ) 
CSMMPL3) 
?G65 ?PZ ?SSCPLEs155) 
DC “’DELETE LINE ENDING IN $°$S 
DC *DELETE LINE BEGINNING IN ~° 


LN 


(SH) 36 -> MOD (0) “SYSMAC>SMPM04 

(SH) 18 (SMMPL1 ) 

(SH) 36 (SMMPL2 ) 

($H) 45 (SMMPL3) 

(SH) 36 (SMMPL4) 

(SH) 0 (0) “SYSMAC>SMPM04 

(SH) 0 -> (SMMPL1) *SYSMAC>SMMPLI 

(SH) 36 (SMMPL2 ) 

(SH) 45 (SMMPL3) 

(SH) 36 (SMMPL4) 

(SH) 0 (0) “SYSMAC>SMPM04 

(SH) 0 (SMMPL1) *SYSMAC>SMMPL1 

(SH) 0 (SMMPL2) "SYSMAC>SMMPL2 

(SH) 0 (SMMPL3) “SYSMAC>SMMPL3 

($H) 0 => (SMMPL4) “SYSMAC>SMMPL4 

($H) 3 * INSERT LN 2 LIBM STATEMNT BEFORE THIS LNeeTHEN DEL THIS 
(SH) 11 * ADD L7 SETA VALUE W/CHANGE FUNCTION «e+ THEN DELT THIS LN 
(SH) 0 (0) “SYSMAC>SMPM04 _ 

(SH) 0 (SMMPL1) “SYSMAC>SMMPL1 

(SH) 0 (SMMPL2) “SYSMAC>SMMPL2 

(SH) 0 (SMMPL3) *SYSMAC>SMMPL3 

(SH) 52 -> MOD (SMMPL4) “SYSMAC>SMMPL2 

(SH) 52 *USED EDIT READ FUNCT TO ADD “SMPM02" PORTION TO FILE* 
($H) 0 (0) “SYSMAC>SMPM04 

($H) 0 (SMMPLI) *SYSMAC>SMMPLI 

($H) 0 (SMMPL2) *SYSMAC>SMMPL2 

(SH) 0 (SMMPL3) “SYSMAC>SMMPL3 

(SH) AS => (SMMPL4) “SYSMAC>SMMPL3 

(SH)MODIFIED BUFFERS EXISTs QUIT DEFERRED 

(SH) 0 (0) “SYSMAC>SMPMO4 

(SH) 0 (SMMPL1) “SYSMAC>SMMPL1 

(SH) 0 (SMMPL2) “SYSMAC>SMMPL2 

(SH) 0 (SMMPL3) *SYSMAC>SMMPL3 

(SH) 35 -> (SMMPL4) *Z00B02>LDD>MACRO>EXEC_LIB>SAMPL2 
(SH)RDY: 


Figure 5-2 (cont). 
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Line 
No. 


1 


aI GS Ot 


10 


11 


12 


13 


14 


Editor Directive Description 


R “SYSMAC>SMPMO01 

Read the 16-line file (example 1) into the current buffer (0). 
X 

Display the status of the current buffer (denoted by —). Sixteen 
lines were read into current buffer (0). 

6,9Ctext 

Change lines 6 through 9 of the buffer with this text for line 6. 


Text for line 7. 
Text for line 8. 
Text for line 9. 


Text, this additional line is inserted after the previous four lines 
were changed. Note that the Editor recognizes tab characters. 
IF 

Terminate input mode and enter edit mode. 

2Itext!F!? 

Insert text before line 2. 

Terminate input mode. 

Display current mode. 


=.-1;$K(SMMPL1) 
Display current line pointer. 


Move the current line pointer back one line to a new current line 
pointer position. Copy the lines from that position to the last 
line in the current buffer into auxiliary buffer, SMMPL1. 


xX 

Display status of current and auxiliary buffers. There are 18 
lines in current buffer (0), which has been modified (MOD) since 
it was read in, and 18 lines in auxiliary buffer SMMPL1. 
1,$DSX 

Delete the first through last line of the current buffer (0). 
Display status of buffers. 


R SMPMO02 
Read 36-line file (example 2) into the current buffer (0). 


1,13VL/#4L/.-12;13GL/#L/.-9;39 #L?L P= 


For lines 1 through 13, display line numbers and all lines that 
do not contain the expression #L. 


Move the current line pointer back 12 lines from line 14 to line 2. 
For lines 2 through 13, display all lines and their line numbers 
containing the expression #L. 
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Terminal 
Typeout 


16->(0) ... 


EDIT MODE 


18-> MOD (0) ... 


18 (SMMPL1) 


0->(0) ... 
18 (SMMPL1) 


1* 
2* THESE ... 


At 
5?G4#L4 ... 


13?GA #L4 ... 


C422 


Line 
No. 


15 


16 


17 


18 


19 


20 


21 
22 
23 


24 


Terminal 
Editor Directive Description Typeout 


Move the current line pointer back nine lines to line 5 and 
substitute ?L for #L. 


Print current line. ENDM 
Print current line pointer value. 14 
1,85M(SMMPL2)X 


Move line 1 through the last line of the current buffer to 
auxiliary buffer SMMPL2. The contents of the current buffer (0) 


are erased. Display the status of the buffers. 0->(0) ... 
18 (SMMPL1) 
36(SMMPL2) 
R SMPMO03 


Read 45-line file (example 3) into current buffer (0). 


8,17S/SETB/SETA/8,17P 


For lines 8 through 17, substitute SETA for SETB. 
Print lines 8 through 17 without line numbers. L4 SETA ... 


LD SETA ... 


1,8M(SMMPL3)X 

Move line 1 through last line of the current buffer into auxiliary 

buffer SMMPL3 and erase buffer (0). 

Display buffer status. 0->(0) ... 
18 (SMMPL1) 
36 (SMMPL2) 
45 (SMMPL3) 

R “SYSMAC>SMP04 

Read the 34-line file (example 4) into the current buffer (0). 


X29A 


Display buffer status, 34 lines are currently in buffer (0). 34->(0) ... 
18 (SMMPL1) 


45 (SMMPL3) 
Append, after line 29, four lines of text. Text for line 30. 


Text for line 31. 
Text for line 32. 


text!F 
Last line of text (line 33). 
Terminate input mode and enter edit mode. 


/SS..LE/L/$$/LD/“* */LD 


Search the current buffer for the first occurrence of the 
expression SS..LE, where .. are any two characters. 


List the line and its line number. 28°G5 ?PZ ?SS(?7LE... 
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Line 
‘No. 


25 


26 


27 


28 


29 


30 


31 


32 


33 


Terminal 
Editor Directive Description Typeout 


Locate a line that ends with § as the last character. The first 
dollar sign is escaped using a nonprinting C,i.e.,!C$$. The 
second dollar sign retains its special meaning, and indicates: 
locate the last character in a line ending in dollar sign. 


List the line and its number; then delete the line. 1LODELT$ DC...D‘'$’ 

Locate a line beginning with “. The second circumflex is 

escaped by using the nonprinting !C,i.e., *!C%. 

List, then delete the line and its line number. 28 “DEL DC 
‘DELETE ... 

1,$K(SMMPL4) 

Copy the current buffer contents from first through last line into 

auxiliary buffer SMMPL4. 

X1,$D 


Display the status of the buffers. 36->MOD(0) ... 
18 ... 


36 (SMMPL4) 
Delete first through last line of current buffer. 
B(SMMPL1) 
The auxiliary buffer, SMMPL1, is made the current buffer prior 
to writing. 
W *SYSMAC>SMMPL1 
Write the current buffer contents as a file whose pathname is 
“SYSMAC>SMMPL1. 
1,6DX 
Delete the first through last line of the current buffer. 


Display the buffer status. The pointer points to current buffer, 
SMMPL1. O(O) ... | 
0->(SMMPLI) ... 


36(SMMPLA) 


B(SMMPL2) 

The auxiliary buffer, SMMPL2, is made the current buffer prior 
to writing. 

W *SYSMAC>SMMPL2 

Write the current buffer contents as a file whose pathname is 
“SYSMAC>SMMPL2. 

1,$D 

Delete the first through last line of the current buffer. 
B(SMMPL3) 


The auxiliary buffer, SMMPL3, is made the current buffer prior 
to writing. 
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om 


No. Editor Directive Description 
34 W *SYSMAC>SMMPL3 
Write the current buffer contents as a file whose pathname is 
“SYSMAC>SMMPL3. 
35 1,$D 
Delete the first through last line of the current buffer. 
36 B(SMMPL4) 
The auxiliary buffer, SMMPL4, is made the current buffer prior 
to writing. 
37 W “*SYSMAC>SMMPL4. 
Write the current buffer contents as a file whose pathname is 
“SYSMAC>SMMPL4. 
38 1,$DX 
Delete the first through last line of the current buffer. 
Display the status of the buffers. SMMPL4 is the current buffer. 
All the buffers have been cleared. 
39 R SMMPL1 
Read the file SMMPL1 into the current buffer, SMMPL4. 
40 /INSERT/LD//ADD L7/LD 
Locate the first line containing the expression, INSERT, list it 
and its line number, and then delete it. 
Starting at the current line, locate the first line containing the 
expression, ADD L7, list it and its line number, and then delete 
it. 
41 15R SMMPL2 
Read the file, SMMPL2, into the current buffer after line 15 of 
the buffer. Two files are being merged. 
42 X52LD 
Display the status of the buffers. Current buffer, SMMPL4, now 
has 52 lines. 
List line 52 then delete it. 
43 E FO >SPD>LPT00 
The Execute directive allows you to execute the ECL command 
FO to change the output file from the operator’s terminal to the 
line printer. 
44 1,$LW SMPMAC.P 
List the first through last line of current buffer on the line 
printer (Figure 5-3). Write the current buffer as a file whose 
pathname is SMPMAC.P. 
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Terminal 


Typeout 


0 (0) ... 
0 (SMMPL1) .. 


0->(SMMPLA) ... 


3* INSERT LN ... 


11* ADD L7SETA... 


0 (0) ... 


52->MOD(SMMPL4)... 


52* USED EDIT ... 
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Line 
No. 


Editor Directive Description 


Terminal 
Typeout 


45 


46 


47 


49 


50 


51 


52 


53 


D4 


55 


56 


1,$D 
Delete the first through last line of the current buffer. 


R SMMPL3 
Read the file, SMMPL3, into the current buffer, SMMPL4. 


X/L4/;/LE/S/SETB/SETA/ 
Display the status of the buffers. 


Locate the first line containing the expression, L4. Starting 
with the line containing L4 through the line containing the 
expression LE, substitute SETA for all occurrences of SETB. 
1$LW “%*Z00B02>LDD>MACRO>EXEC_LIB>SAMPL1 
List the first through last line of the current buffer on the line 
printer (Figure 5-4). 


Write the current buffer as a library routine file whose path- 
name is “ ZOOB02>LDD>MACRO>EXEC_©%+>SAMPLI1. 


1,$D 
Delete the first through last line of the current buffer. 


R SMMPL4 
Read the file, SMMPL4, into the current buffer. 


/DLET/D 
Locate and delete the line containing the expression DLET. 


Q 


Quit. The quit is deferred since a buffer has been modified and 
has not been written to a file. You haveone more chance to write 
the contents of the current buffer as a file. 


1$LW %*ZO00B02>LDD>MACRO>EXEC_LIB>SAMPL2 
List the first through last line of the current buffer on the line 
printer (Figure 5-5). 

Write the current buffer contents as a library routine file whose 
pathname is “ Z00B02>LDD>MACRO>EXEC_LIB>SAMPL2. 


Xx 


Display buffer status. Status is always displayed on the 
operator’s terminal even though the output file is the printer. 


E FO 

The Execute directive allows you to execute the ECL comand 
FO to change the output file from the line printer back to the 
operator’s terminal. 


Q 
Quit. Exit from the Editor. 
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0 (0)... 


45->(SMMPL4) ... 


MODIFIED BUFFERS 
EXIST ... 


0 (0)... 


35->(SMMPL4) 
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1 

2 

3 SMPLM 
uj 

5 

6 LE 
7 U4 
8 L5 
9 6 
10 7 
11 LA 
te L9 
15 LA 
14 La 
15 L2 
16 * 


TITLE 


LIom 
MAC 


SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 


SMPMAC,'3/1/77' 
TEXEC™LIB',SAMPL1,SAMPL2 


EDITOR/MACRO EXAMPLE 


P1=0,P2ze2,P3='SAMPLE!',P4=t' PROGRAM! ,PSZZERO,PO6=(35 


' PROG2.START2L,) NAME! 


EQU 
RESV 
TEXT 
XDEF 
XLOC 
XVAL 
(2'01') 
CQMM 


', ' 


P7=),-P8=TWO,P9=Z=SCOMM,PAZA,PB=B,PCET2,PO=SAMPLE,PES=PROGC2 
* SET LOCAL VALUES WITHIN MACRO ROUTINE * 


17 * THESE UNPRUTECTED COMMENT LIWES WILL BE DROPFEL 
KU PREPRUCESSED, 


18 * WHEN MAC 


G2 «eee THE FOLLOWING PORTION 


G7 eeee THE FOLLOWING PORTIUN OF COVE IS ADDED 


19 

20 ?G64 
el 

ee ?65 
23 

ea 

25 

26 

27 266 
28 ?GA 
29 

$0 G3 

$1 G4 

$e G5 

33 G6 

34 67 

35 GA 

36 = =6GKh 
537k 

38 wekee THE FOLLOWING 
39 

40 

ai 

43 * 

44 CALL 
Oy per START, SC 
46 * 

48 

49 CALLe 


7L4 
?L5 
7L6 
7L7 
2L7 
2?L8 
?L9 
?LB 
?L4 
ENUM 
SET 
SETA 
SETA 
SETA 
SETI 
SETA 
SETA 


SMP LM ’ 


SAMPL 1 


SAMPLe 
SO peeerpervvovrereverrrev oreo ee LINK 


END 


761 


264 


(G1 INITIAL VALUESS) 
PIXC?PLE. 2?PE) ?G07P1 
PPS?PVL (35) 72? P4?LZ?LA 


PPH2PB?GEPAL (PPC) ?P7 
28S (?2?P4,7,1) 


PVP CLL) 
2G7 
2?P94¢763 


l 
"ZERO! 
'NAME ! 
'$COMM! 
100 
‘oom! 


1,3 


(APUSTROPHE'S 


PURTIUN OF CODE JS ADPEL 


(CALL IWeLINE 


GF CUDE 1S ADDED 


Verreee te idee 


SF eerpeoreves 


SMPMAC, START 


DROPPED WHEN 


FROM "SMPLM" 


SUBSTI.) 


kk* * 


MACRO ROUTINE) 


FROM "SAMPLI1" 


FROM "SAMPL2" 


kkk 


Wake 


Figure 5-3. Sample of Unexpanded Assembly Language Program with Macro Calls 
and Statements (SMPMAC.P) 
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SAMPL 1 MAC P1=0,Pe=2,P3='SAMPLE',P4&='PROGRAM!,P5sZERO,P6=(,P7=) } 


P8STWO,P9ZS$COMM,PAZA,PB=B,PD=SAMPLE,PEZPROGRAM 


* SET LOCAL VALUES WITHIN MACRO ROUTINE «& 


L4 SETA ORG 

L5 SETA DC 

L.6 SETA LDR 

L7 SETA STR 

L8 SETA CALL 
L9 SETA LB 

LA SETA BBT 

LB SETA SLD 

LC SETA is! 

LD SETA (Z'3e2") 
LE SETA 'PROG2.START2 (p>) NAME! 


* SET GLOBAL VALUES PITHIN MACRO ROUTINE * 


GH SETA ‘ORG INTU COMMON! 

GG SETA 'ORG INTO INTERNAL LOC! 

GC SETA "EXTERN VAL REFERENCE! 

GD SETA "COMMON REFEREWCE' ? 

GE SETA "EXTERNAL LOCATION REFERENCE! 
GF SETA "FORWARDS TEMP LABEL REFERENCE! 


* UNPROTECTEO LINES OMITTED WHEN PRE*PROCESSED 
* 


74 ?P9 ?GH 
@L5 PVR C?P3,7PD) 2662?SRk(2P4, 7PE) 
?L4 7G47P72P8 ?7G6G 
PPC ?L6 SRL, ?LC?PB 26C 
?u7 $R1,<?GA ?GD 
Cw) 
?PD 27L6 SR1L,<?PA ?GE 
(*) 
?L8 PROG2.?SS(7LE,7,6) ?7GBNAME 
749 PG4?P7?PLPGBPLCPVL (13) 
@LA >?P7SF ?GF 
7L6 $SI?7GBILCZ'2CH(1,"2) 2CN (2, ee) 7CH(S, 2) PCH(4,=2) I 


ENOCL1 ENDM 


Figure 5-4. Sample of Unexpanded Macro Routine (SAMPLI1) Contained 
in EXEC_LIB Directory 


USING THE EDITOR 5-10 


CB22 


PB=TWO,P9=SCUMM,PAZA,PB=5 
w SET LOCAL VALUES WITHIN MACRO ROUTINE * 
SETA >=(Z'1300') 
SETA IOLD 
SETA ER 4 
SETA 'PROGESTART(,J] NAME! 
SETA SOR 
SE Tiv -32768 
SETN $2767 
SETN 0 
SETA BEZ 
SETA HiT 
L SETA ',! 
* SET GLOBAL VALUES WITHIN MACRU AOUTIvE « 
G7 SETN - $2768 
Ge SETA TBACKAARDS TEMP LABEL WEFERERCE! 
G5 SETA CTRL 
* 
* UNPROTECTED LINES OMITTED e#hEN PRE#PRICESSED 
* 
7Pi ?LA PPS?PLZ2L4,=27LD 
?P1 ?7LA PPSPLZIL4,=27Lv 
7LG 27LO,?VG6(03) 
7LI PLD,*S$C ?G6e 
PLY 
765 TPZ ?SSC?LE,1,5) 
IFE 7G7,?LC,1FE1 
FAIL 
EnDIT IFNL ?Pe,?lC,* 
IFE4 NULL 
IFNE 267, ?LP,GTEND 
FAIL 
GTEND GOTG 
ENDCL2 ENDM 


Oanouw& wh - 


Figure 5-5. Sample of Unexpanded Macro Routine (SAMPL2) Contained 
in EXEC_LIB Directory 


Example 1: 
File SMPMO1 before Editing 


SAMPLe MAC P1=0,Pe=2,P3S='SAMPLE',P4s'PRUGRAM!,PSSZEKU,PH=(,P7=); 


1 TITLE SMPMAC,'3/1/77' EDITGR/MACRU EXAMPLE 

2 * INSERT Liv 2@ LIBM STATEMNT BEFORE THIS L&.e THF NOEL THIS LS® 
3% SMPL™ MAC Piz0Q,Péeze,PS='SAMPLE!',PU=IPRIIGRAM!',PSSZEFO,P65(3 
G PT7=),P&=TAU,P9ESCOMM, PAZA,PHSKB,PCHT 2, PUSSAMPLE,PESPROGCO 

5S »* SET LUCAL VALUES WITHIN MACRO RKGUTINE * 

6 LE USE CHANGE FUNCTIUN TO ADD SETA VALUE FOR THIS LN 
7 L&4 USE CHANGE FUNCTION TU ADD SETA VALUE FOR THIS LN 
8 LS USE CHANGE FUNCTION TO ADD SETA VALUF FOR THIS LN 
9 Lé USE CHANGE FUNCTION TO ADD SETA VALUE FOR THIS LN 
10 * ADO L7 SETA VALUE W/CHANGE FUNCTION .. THeN DELT THIS LAN 
11 L8 SETA XLOC 

le 9 SETA XVAL 

13 LA SETA (Z'O1') 

14 Ls SETA COMM 
15 LZ SETA ', ' 


16 xUSED EDIT KEAD FUNCT TO ADO "SMPMO2" PORTION TO FILE* 
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Example 2: 
File SMPMO02 before Editing 


~~ 
SeoOaGaneys &w hv — 


11 


‘ | 
* THESE UNPROTECTED COMMENT LINES #4ILL w& ORURPED 
* WHEW MACRO PREPROCESSED. 
* 
264 ALG 761 (G1 ItITLIAL VALUecHs) 
8LS PIX CR#LE, PPE) 26n2?P1 
2765 4Leo PP3IVL (35) 2P4aL_Z4eL_a 
#L7 264 
aLT7 PPH?PPE?PGRPIAL (PPC) 2?P/ 
RLA 27SS(2?P4,7,1) 
SLI PVP(11) 
266 a ie 2G7 
2GA 4LG 2P94763 
EniOh 
G3 Stn 1 
G4 SETA "ZERO! (APOSTRUPHE'S DRUPPED WHE 
65 SETA "name ! 
G6 SETA 'SCcOMm! 
(37 SETH 100 
GA SETA 'COmi! 
Gs SETA ty! 
* 


keene THE FULLOWING PORTION GF CODE IS apheu 
" SuPL&, (CALL JiweL ive 
5 ies THe FOLLOWING PORTION OF CODE IS ADhev 
raced SAMPL14 Veooreete l S005 

pe START, SC 

or THE FULLOWING PORTION GF COVE IS ADED 
* 


CALLe2 SAmMPL2 SP eereveve?s 
povevevrveverr ee everveeree LINK 
END SMPMAC, START 
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SUBSTI.) 


wake 


RACKU ROUTINE) 


FR UW. 


FROM: 


"SAMPL1" 


"SAMPL 2" 


Rek* 


ewaek 


CB22 


SE 


Example 3: 


File SMPMO03 before Editing 


1 SAMPLi MAC 
e 

3 & 

GO * 

5 

6 « 

7 * 

8 L4 SETB 

9 LS SETB 
10 L6 SETS 
11 7 SE TE 
le L8 SETH 
13 «6L9 SETbB 
14 LA SETH 
15 L#& SETH 
16 «6LC SETH 
17 LO SETB 
18 LE SETB 
19 
20 
ei *« SET GLUBAL VALUES 
ec 
e3 * 
24 GH SETA 
25 GG SETA 
26 6GC SETA 
e? GO SETA 
26 GE SETA 
29 GF SETA 
30 
31 »* UNPROTECTED LINES 
32 —C«ésws 
33 7L4 
34 ?LS 
35 7L4 
36 ?PC “?L6 
37 7L7 
38 [x] 

39 ?PD 76 
40 {*) 

4} 7L8 
4e 7L9 
43 PLA 
44 7LB 
45 ENOCLi ENOM 

USING THE EDITOR 


P1=0,P2=s2,PS$='SAMPLE!',FPdS'PROUGRAM!, PSSZERO,P6=(,PT7=) 3 
PB=STWO,P9SSCOMM,PA=SA,PB=SB,PDESSAMPLE ,PE=PROGRAM 


* SET LOCAL VALUES ¥ITHIN MACRO ROUTIive * 


(Z'3e') 
'PROG2eSTARTAL,J] WAME! 


WITHIN MACKQ ROUTINE * 


"ORG INTO COMMON! 

"ORG INTO INTERWAL LOC! 

"EXTER VAL REFERENCE! 

"COMMON REFERENCE! 

"EXTERNAL LOCATIGN REFERENCE! 
"FORWARDS TEMP LAHEL REFERENCE! 


OMITTED WHEN PRE@PRUCESSED 


2P9 ?GH 

PVR CPPS, 2PD0) 2GB2SR(PP4, PPE) 
2G4?P72P8 ?Gb 

Ski, ?LC?PS ?GC 
$R1,<?GA ?GU 

SR1,<?PA TGE 


PRUG2.?7SS(?LEr 7,6) 2GbNAME 
PGUPP7?P1 PGBPLCPVL (13) 
>?P7SF 2GF 


SSI?PGB?PLCZ'?CH(1,"2)?CH (2,2) 2CH(3, 2) PCH 4,2)! 
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Example 4: 
File SMPM04 before Editing 


1 SAMPL2 RAC P120,P@s2,P3s'SAMPLE!,PUs!FRGOGRAM!, PSZZERO,P65(,P7=)3 ee 
Oo P&=THU,P9SSCOMM,PAZA,PR=EH . ( ee ok 
3 * SET LOCAL VALLES #FITHIW MACRU ROUTIKE *& 8 
4 a SETA >=1Z'1300°] 
5 LA SETA TIGL) 
6 LOD SETA SKI 
7 Le SETA TPROUGASSTAKT (,] iwAitk ! 
& LG SETA SOk 
9 LC SETiv -32768 
10 WELTS OC "DELETE LINE ENVING In S'S 
11 LP SE Ti 3°Tb67 
12 Lw St Tn () 
13 LI SETA REZ 
14 CULL SETA HLT 
15 LZ SETA ae 
160 »* SET GLUBAL VALUES wITHIii MACRO RUUTI ive « 
17 G7 SETN @$P76K 
18 Ge SETA THACKKWAROS TEMP LAbEL KEFERKEICE! 
19 G65 SETA CTRL 
eg 
Ol * UNPROTECTEG LIWES UNITTED WRENN PRE @PRIICESSE! 
ee 
25 ?Pi PLA PPSPLZ?PL4,=2?LO 
e4 ?P) PLA PPSPLZ?L 4,5 2Li 
e5 fLG PL, ?VG(3) 
26 7L1 2L.0,°8C Pe 
e7 a Mi 
28 265 PPZ 25S (C?Le-1,9) 
29 “DEL OC 'TDELETE LINE SEGIuNWING Tv *! 
30 IF WE 27G7,?7LP,GTEND 
$1 FAIL 
$2 GTEND GOTO ENDIT 
33 ULET DC 'fORELETE LINE BEFURE QUIT! 
34 ENDCLe EDM 


USING THE EDITOR 5-14 | CB22 


Section 6 


Using the Assembler and Macro Preprocessor 


This section illustrates the use of the assembler to construct programs containing macro calls. 
Two assembly language samples are presented. One illustrates the output of different assembly 
language program processors. The other illustrates an assembly language program that con- 
tains multiple tasks. Both samples provide the operator terminal session listings that contain 
the commands to invoke the system software. 


SAMPLE ASSEMBLY LANGUAGE SESSION (SMPMAC) 


Figure 6-1 contains a sample operator terminal session to preprocess, assemble with cross- 
reference, and link the assembly language program SMPMAC. It is assumed that the Honey- 
well-supplied startup has been done prior to this session. 


The typeout illustrates the following points. The working directory is changed to SYSMAC 
where the program’s files are located. The file, SMPMAC, that is processed by the Macro 
Preprocessor is in Figure 5-3. The macro routines, SAMPL1 and SAMPL42, called by the 
program are listed in Figures 5-4 and 5-5. A listing of the output file SMPMAC.A from the macro 
preprocessor is shown in Figure 6-2. 


CWD +SYSMAC 

($H)RDY: 

tZSYS51>SYSLIB2>MACROP +SYSMAC>SMPMAC -SZ 10 
($H )MACROP-0100-11/17/1404 

($H)0000 ERR COUNT 

($H)RDY: 
ASSEM +tSYSMAC>SMPMAC -SZ 10 -SAF -LE -XREF -COUT >SPD>LPTOO 
($H)ASSEM-0100-11/17/1346 

$H)0000 ERR COUNT 

YASSEM: (020105) 1D 1380 0000 0000 

) >SPD>LPTOO 
$H)RDY: 
FO >SPD>LPTOO 

($H)RDY: 
LINKER ‘+SYSMAC>SMPMAC -COUT >SPD>LPTOO -SZ 10 
($H)LINKER-0100-11/23/1258 
LDEF A,X‘100' 
VDEF B,X‘2' 
LINK SMPMAC 
MAP 


T 
$H)SAF OR SLIC PROG2.0 NT FND 
$H)SAF OR SLIC PROG2.0 NT FND 
$H)ROOT SMPMAC 

Shen DONE 


Q 
( 
( 
( 
( 
($H)RDY: 


Figure 6-1. Sample Terminal Session (SMPMAC) 
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a = 
ane, 
1 TITLE SMPMAC,'3/1/77* EVITOR/MACRKO EXAMPLE 
2 
3 xeeee THE FOLLOWING PORTION UF COGE IS ADDED FROM "SMPLM" ween 
Q 
5 ZERO EQU $ (G1 INITIAL VALUE=$) 
6 RESV 2, 
7 NAME TEXT *SAMPLE', 'PROGRAM', Z'O1! 
rs) XDEF ZERO 
9 XUEF (TwOre) 
10 XLOC A 
11 XVAL 6 : 
12 8CuUuMmM COMM 100 
i3 COM Ewu SCOMM+] 
14. 
15) week THE FULLOWING PORTION OF CODE IS ADLED FROM "SAMPLI" keen 
lo * ; 
17 ORG $C OMM URG INTO CommaN 
18 DC 1,2 
19 ORG ZERO+150 URG INTO INTERVAL LOC 
20 START LOR $R1,=B EXTERN VAL REFERENCE 
21 STK SR1,<COML CUMMUN KEFERENCE 
ee * 
e5 8sC LOR SRI,<A EXTERMAL LOCATION REFERENCE 
eu * 
25 CALL PROG2.START2,WAME 
26 LB ZERO+1,22'32! 
27 BRT >+5F FORWARDS TEMP LABEL REFEREWCE 
28 SLO $S1,=Z2'O1020304' 
eo x 
30 #eee THE FOLLUWING PORTION UF COVE IS ADCED FRUM "SAMPL2" keen 
31 
32 SF TOLD ZERO, >=Z'1300',S$k1 
33 SF IOLO ZEKO,>=Z2'13500',=$81 | | 
34 SUR SR191 ~ 7 
35 BEZ SR1,*SC BACKWARUS TEMP LArEL REFERENCE 
36 hLT 
37 CTRL LINK PROGe 
38 Ewo — SMPMAC, START 
Figure 6-2. Macro Preprocessor Output (SMPMAC) 
Figure 6-3 illustrates a cross-reference listing produced by the Assembler. See the Program 
Preparation and Checkout manual for an explanation of cross-reference symbols. 
Figure 6-4 illustrates the Assembler listing of the assembled Macro Preprocessor output. 
Figure 6-5 illustrates the link map of the previously assembled program SMPMAC. . 
i | an 
Nee a 
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( . TITLE SMPMAC,"3/1/77" EDITORK/MACRO EXAMPLE? 


$ Kee 5 
$C es 35 
$COMM ie i3 17 
N SF 3e 
M SF 33 e7 
$R1 Ran 20 e\ 23 32 35 $4 35 
$$1 wake 28 
A 10 23 
B 41 20 
COML 13 el 
NAME 7 e5 
. U PROG2 KR KR e5 
START eu 38 
U START wxxew e5 
N TwQ 9 
; ZERO 5 & 19 26 352 33 
{ iT tl 1V 
11 LABELS 
eS REFERENCES 
38 RECORDS 
e U FLAGS 
iM FLAGS 
2 N FLAGS 
Legend: 
1 — Optional error flag: {11 — Number of the line in which the symbolic 
M — Designated label occurs more than name is defined in the module. Asterisks 


(****) indicate that the symbolic name was 


once in the label field in the module; sStdetined ia ine modalé: 


i.e., the label is multiply defined. 


U — Designated label is not defined;**** 
is also included in the definition field. 


1V — Number of each line that contains a refer- 
ence to the symbolic name. 


N — Designated label is not referenced in 


a 
the module. The contents of the assembly program TITLE 


statement become the heading for the cross- 
il — Identifiers (e.g., registers) and an alphabetical reference listing. 

list of all labels in the assembly language source 

module, Identifiers do not have to be defined 

and are never flagged. 


Figure 6-3. Cross-Reference Listing (SMPMAC) 
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SMPMAC 


000001 
000002 
000003 
000004 
000005 
000006 


0yd007 


000008 
Q00Q09 


000010 
oov01! 
0o0v00d1e 
VvOYd1S 
Qgodguliad 
000015 
000016 
000017 
QV00016 


0udul9 
00002” 
000021 
v00V0e22 
000025 
VdOUUES 
OUVIUEd 


0VVDe6 


000027 
QdOUvUEeS 
Vaudded 
0vuv030 
000031 
000032 


000033 


O00) $4 
gudu sd 
0000 $6 
0000 37 
000034 


0000 ERR COUNT 


Legend: 


! — Optional error flag(s): 


Operand field format error 
Numeric conversion error 

Short displacement out of range 
IWlegal address expression 

IWWegal forward reference 
Improper header 

Label field format error 
Multiply-defined symbol 

No matching left parenthesis 
Illegal operation code 
Assembler control statement error 
Address<0O or 232K 

Illegal register reference 
Improper statement format 


NxXCc ANDOVOZSFITIMMONOpyY 
| 


| 


Truncation 


warning for string 


constant 

Undefined symbol 
Expression too complex 
Conditional assembly error 


There can be up to four error flags per line. 
If there are more than four errors, only the 
first four are listed and included in the error 
count; subsequent errors are ignored. 


VI —- 


Record number; a 6-digit decimal! represen- 
tation corresponding to the sequential count 
of the number of logical records read. 


Program counter; 4-digit hexadecimal repre- 
sentation of the relative address of the 


corresponding source statement on the 
right-hand side of the listing. 
Machine code; 4-, 8-, or 12-digit hexa- 


decimal representation of the corresponding 
assembly language instruction or Assembler 
control statement shown on the right-hand 
side of the listing. 

Type flag; 1-character flag (preferably a 
nonhexadecimal digit) that specifies the 
label type of the referenced symbol: 


K — Common 
T — Temporary 
X — External 
P — P-relative reference to external 
or common symbol 
Verbatim representation, including com- 


ments, of the source statement, as defined 
in the Assembly Language manual. 


Figure 6-4. Assembler Output Listing (SMPMAC) 
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3/1/77 GCOS6/M0T 0161 ASSEMBLER EDITUR/MACRO EXAMPL PAGE 0001 1901/01/01 0026:59,4 
TITLE SMPMAC,'3/1/77' EDITOR/MACRO EXAMPLE 
* 
kkeee THE FOLLOWING PORTION OF CODE IS ADDED FROM "SMPLM"® wane 
* 
, 0u00 ZERO EQU $ (Gi INITIAL VALUESS) 
0000 0000 00600 RESV 2,0 
0002 5341 NAME TEXT 'SAMPLE!, 'PROGRAM!, 2Z'04! 
0v03 4050 
0004 4C4§ 
60uS 5052 
0006 4F47 
0007 524} 
0008 4001 
XDEF ZERO 
Vv000 
XDEF (Tvl0,2) 
v0Gde 
xLOCc A 
XVAL 8 
QU6G $CUMY comm 100 
0004 K COMi EGU $COmMMe] 
® 
keee THE FOLLUAING PORTION OF CUDE IS ADDED FROM "SAMPLI" xuan 
* 
OuduU K URG $CUMM ORG INTO COMMON 
gvuec gui uC lee 
0004 vuUu0e 
vU96 QekG ZERO4+150 ORG INTU INTERNAL LOC 
0096 9870 CU00 x START LOR §R1,=4 EXTERN VAL REFERENCE 
6098 9FO0O0 vooOl K STR SRL, <COr1 COMMON REFERENCE 
* 
VEGA GHOU 0000 x oc LOK BR1,<A EXTERNAL LOCATION REFERENCE 
¥ 
Uu9t FBCO 00N3 CALL PROGA.START2, NAME 
VYUYE D3bu 0V00 
QQAU UF BY T 
OVA g002 
UUAe &8e2CO FFE Le 7ZERU+1,2Z2'32! 
0VUAG 3200 . 
GuAS 0964 T ney >+ HF FORWARDS TEMP LAHEL REFERENCE | 
QUAGB QGQHRFU ULlGe 0304 SLD $S1,37' 010203504! 
* 
week THE FULLOAITWG PORTION OF CODE 1S ADDED FROM "SAMPL2" wewe 
* 
VUAG #8100 FF56 SF TOLD ZERU,>2Z'1500',=5R1 
QdAbB 1500 
QgAC O05) 
VOAD 81CU FFS52 BF TUL) ZERU,>22'1300', S5R14 
CGArF 1304 
vOrv QOS 
GOKRL L041 SUR SR1i,1t 
OuUne 1901 FFE? T bE Z $R1,°*8C RACKWARDS TEMP LABEL REFERENCE 
00OH4 OOO HLT 
CTRL LINK PRUG2 
VOB 096 EivD> SMPMAC,START 
“TH iV ay: 2 vi 


LINKER=0100-11/23/1258 GCOS6 MOD400-$1009-12/01/1413 
BU= SMPMAC LINKED ON: 1977/12/08 1420355.9 SAF 


SMPMAC 3/1/77 
1977/12/08 1420:812.4 ASSFMBLER=0100911/17/1346 GCOS6 MOD400-S8100912/01/1413 P 
EDITOR/MACRO EX AMPL 


SAF OR SLIC PRNG2.0 NT FND 

SAF OR SLIC PRONG2.N NT FND 

xx SMPMAC LINK MAP 1977/12/08 1420:55.9 
. *&KSTART OOFA 

**xLOW 0000 

**kHIGH 1119 


**§ COMM 0000 
x*xCURRENT 0119 


*KEXT DEFS 
P ZHCOMM 0000 
Pp 7HPEL 9000 
A 0100 R 00902 


xk ROOT 0000 

* SMPMAC 00900 

C $cCOMM 0000 
ZERO 0064 Two 0002 


x KIINDEF 
* SMPMAC 000 
START2 9103 


KHKKKEKKKKEK 
- ROOT SMPMAC 
is KKK KEKKK 
HIGHEST AVLY /NUM OF SYMS 0 
REKKKKKKKK 
SAF 
KRKEKKKKKKEK 
ROOT SMPMAC BASF 9000 ST OOFA -..UI HIGH=0119 
KAKKAKKKKN 
*STZE OF ROOT AND STATIC OVLYS= 0119 HT REL RCD= 4 
KKEKKKKKEKKK 
LINK DONF 
KEKKKKKKKK 


I IT II] 


I - Indicates whether there is a protected symbol, 
multiply-defined symbol, or symbol that defines 
the labeled or unlabeled common; designated by 
P, M, and C, respectively. 


: II - Module and symbol names. (Module names are 
preceded by *.) 


III - Base address of module, address or value of 
symbol. 


Figure 6-5. Linker Output Listing (SMPMAC) 
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SAMPLE ASSEMBLY LANGUAGE MULTITASK PROGRAM (BRDCST) 


Figure 6-6 contains a sample terminal session to compile, link, execute, and start debugging 
the assembly language, program BRDCST, on that system. A specialized system is configured 
with CLM_USER containing the following configuration directives: 


DEVICE KSR00,5,0,X°0500’,CONSOLE 
MEMPOOL §,,5000 

DEVICE CDR00,26,26,X’1300° 
MEMPOOL E,AA,14336,,BB,11264 
MEMPOOL B,,8850 


SYS 60,16,SSIP,3 : 
DEVICE DSK01,17,17,X’480’ 

DEVICE DSK02,18,18,X’1200’ 

DEVICE DSK03,19,19,X’1280’ 

DEVICE LPT00,20,20,X’1380’,LPT00 

QUIT 


The typeout illustrates the following points. A task group, $H, is spawned. Editor is used to 
print the file containing BRDCST source text, a portion of which is shown in Example 1. The 
Macro Preprocessor, required for processing of $IORB, $CRTSK, and $RQTSK macro calls, is 
not on the directory search path and a full pathname must be used. A task group, BC, in which to 
execute BRDCST is created and BRDCST is loaded for execution. 


Example 1 is a listing of BRDCST. It is presented to illustrate how tasks are created and 
invoked in an assembly language multitask program. 


of 
“7 
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SG $H H.L.A 38 >SPD>CONSOLE -OUT >SPD>CONSOLE -POOL AA -WD *Z00B00 
($S)RDY: 

C :$H: 

RDN 

($H)GROUP READY 

($S)GROUP $H DID NOT ACCEPT INPUT 
RDN 

($H)RDY: 

CWD “ETSCOM>MAN EX 

($H)RDY: 

FO >SPD>LPTOO 

ED 

($H)EDIT rrrr-mm/dd/hhmm 

R BRDCST.P 

1,$P 


Q 

FO >SPD>CONSOLE 

($H)RDY: 

“Zrrr02>SYSLIB2>MACROP BRDCST -SZ 20 -IC 
($H)MACROP rrrr-mm/dd/hhmm 

($H)O0000 ERR COUNT 

($H)RDY: 

ASSEM BRDCST -SIZE 1 -COUT >SPD>LPTOO 
($H)ASSEM rrrr-mm/dd/hhmm 

($H}O000 ERR COUNT 

($H)RDY: 

LINKER BRDCST -C >SPD>LPTOO -S 2 
($H)LINKER rrrr BU=BRDCST LINKED ON: yyyy/mm/dd nnmm:ss.t 
IN “ETSCOM>MAN EX 


LN BRDCST 
START BRDCST 
MP 
QT 
(SH)ROOT >BRDCST 
(SH)LINK DONE 
($H)RDY: 
C :$S: 
CG BC 40 ~LRN 30 -POOL BB -EFN *ETSCOM>MAN EX>BRDCST 
($S)RDY: 
EGR BC B.E.N >SPD>CONSOLE -WD “ETSCOM -QUT >SPD>CONSOLE 
($S)RDY: 


Figure 6-6. Sample Terminal Session (BRDCST) 


Example 1: 
Partial Program Listing of BRDCST 


TITLE BRDCST 
LIBM >LDD>MACRO>EXEC LIB' 


THIS TEST PROGRAM IS A 
MEDIA TRANSCRIPTION TEST. 
IT CAN EXECUTE AS AN 
ON-LINE OR BATCH 

DRIVER TEST...... 


+ + + & + F 


DEVTBL RESV 0 
DC <CRDBLK LRN 26 
DC <TTYBLK LRN 13 POINTERS TO DEVICE I/0 
DC <DSKBLI LRN 17 REQUEST BLOCKS 
DC <PRTBLK LRN 20 
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DC <DSKBLO LRN 18 
DC <TTYOUT LRN 12 


DC <ASRINP LRN 10 peaue a since ae 

DC <ASROUT LRN 11 
* 
CRDBLK $IORB 26,WAIT, ,BUFFER, ,80 | 
* 
TTYBLK $I0RB 13,WAIT, ,BUFFER, ,80 
* 

1/0 REQUEST BLOCK DEFINITIONS 

DSKBLI IORB 17,WAIT, ,BUFFER, ,80 
D : USING $IORB MACRO CALLS 
DSKBLO $IORB 18,WAIT, ,BUFFER, ,80 
* 
BUFFER RESV 80 

RESV 80 

RESV 80 
TILRN DC 0 26 BUFFER, LRN AND LEVEL 
TOILRN DC 27 DEFINITIONS 
TILVL Dc 
TOILVL po 
: | 
* TASK 1 (INPUT) REQUEST BLOCK LRN 26 
* 

RB 26, 39 

TASKO1 $TRB 26,WAIT,,INSTRT Cae 
x RN 27 DEFINITIONS USING 
: TASK 2 (OUTPUT) REQUEST BLOCK LRN PERU Ce oak 
TASKO2 $TRB 27,WAIT, ,OUTSTR 
* 


* 


SET USER BIT TO INDICATE DISK 
BRDCST LDR = $R2,=Z'0021' 

LDR $R1,<DSKBLI+$AF 

STH  $R2,=$R1 

STR  $R1,<DSKBLI+$AF 


PROGRAM ENTRY POINT AND 
INITIALIZATION CODE 


e 
e 
Q 


= CREATE INPUT, OUTPUT TASKS 
$CRTSK TILRN,TILVL,INSTRT 
$CRTSK TOILRN,TOILVL,OUTSTR 


TASK CREATION USING 
$CRTSK MACRO CALLS 


ENTRY OF TASK REQUESTS 


* 
INPUTR $RQTSK TASKO1 
a USING $RQTSK MACRO CALLS 


* 

= OUTPUT. TASK REQUEST 
* 

$RQTSK TASKO2 


TASK EXECUTION CODE 


XDEFS AND XLOCS FOR 
LINKER PROCESSING 


XDEFS AND XLOCS 


+ + + HF 


XDEF BRDCST 
END BRDCST 


- INPUT TASK REQUEST | 
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Section 7 


Using the COBOL Compiler 


This section illustrates the use of the COBOL compiler to construct programs written in the 
COBOL language. It shows how to load a source program from a card deck into a mass storage 
COBOL source file and how to subsequently invoke the compiler to process the source program 
from the mass storage file. Two samples are presented; one shows the procedure for running an 
application, and the other is the ouput listing from an actual compilation and link. 


SAMPLE CARD-TO-DISK-FILE PROGRAM (CARDIN) 


Example 1 is a sample COBOL source program that places data read from cards onto a disk 
file. The following paragraphs illustrate a procedure for creating application files, loading 
source, compiling, linking, and executing. System startup has created the application task 
group $H. After startup, the current working directory is “ Zrrr01>SYSLIB1. The following 
summarizes the contents of volumes used in commands: 


Volume Device Unit Contents 


Zrrr00 DSKOO Bootstrap, Monitor, Linker 

Zrrr01 DSKO1 SYSLIB1, SYSLIB2 

Zrrr04. =DSKO02 COBOL Compiler 

VOL03 DSK03 Application Files 

Example 1: 
Program Listing of CARDIN 

000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. CARDIN. 
000030 ENVIRONMENT DIVISION. 
000040 CONFIGURATION SECTION. 
000050 INPUT-OUTPUT SECTION. 
QO0060 FILE-CUNTROL. 
000070 SELECT CARD ASSIGN TO DA-CARD-READER. 
000080 SELECT MASTER ASSIGN TO OC-MSD. 
000090 CATA DIVISION. 
000100 FILE SECTION. 
000110 FE CARD LABEL RECORDS OMITTED. 
000113 C1 CARD-REC PIC X(8O0). 
000116 FD MASTER LABEL RECORDS OMITTED. 
000120 G1 MASTER-REC PIC X(80). 
00013G PROCEDURE DIVISION. 
000140 CARDIN, 
000150 OPEN INPUT CARD. 
000160 OPEN OUTPUT MASTER. 
000170 LOOP. 
000180 READ CARD RECORD AT END GO TO EOF. 
000190 MOVE CARD-REC TO MASTER-REC. 
000200 WRITE MASTER-REC. 
000210 60 TO LOOP. 
QO00220 EDF. 
000230 CLOSE CARD. 
000240 CLOSE MASTER, 
000250 STOP RUN. 
000260 END COBOL 
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VOLUME AND FILE CREATION 


ACA _ :$H: 

RDN | | 

CV >SPD>DSK03 -FT VOL03 Format volume VOL03 

CD “VOL03>SOURCE Create directories for 

CD “ VOL03>OBJECT source, object and user files 


CD “VOL03>FILES 
CF A VOLO03>FILES>OLD_MASTER -N_REL -RSZ 128 _ Create user file 


FO >SPD>LPT00 


LS -PN %“*VOLO3 List contents of created 
LS -PN “*VOL03>OBJECT directories 
LS -PN “*VOLO3>FILES | 
FO 
SOURCE LOADING 


The following illustrates loading a source deck using the CP command. Place the source decks 
for CARDIN in the card reader in the following sequence: 


CARDIN source deck 
EOF (11-5-8-9) card 


Enter the following command: 
CP >SPD>CDR00 “ VOL03>SOURCE>CARDIN.C 


COMPILING WITH COBOL 


In the following ECL commands, the working directory is “ VOLO3 >OBJECT. The search 
path for bound units (executable programs) is current working directory, LIB1, then LIB2, 
where their pathname is initially ‘ Zrrr01>SYSLIB1. The COBOL Compiler is not in any 
directories in the search path; its full pathname must be given. However, the command 

COBOL <SOURCE>CARDIN... 
can be used if you change the pathname for the directory LIB2 by issuing an operator command 
to the system task group using: 


A$SACSD -LIB2 %Zrrr04 
(where A is exactly one space) - 


“VOL03>OBJECT will contain temporary work files required for the compiler and the 
created object files used by the Linker. The compiler argument LD will list source, , data map, and 
errors; LO will, in addition, list the object text. 


To compile CARDIN enter the following: 


CWD %*VOL03>OBJECT 
COBOL <SOURCE>CARDIN -LO -COUT >SPD>LPT00 


LINKING 


The working directory is still “VOLO3>OBJECT. The Linker LIB directive directs the 
Linker to search the secondary directory for COBOL run-time routines (ZCRT) ae for 
linking. To link, enter the following commands: 


LINKER CARDIN -COUT >SPD>LPT00 -SIZE 4 
LIB “ Zrrr04>ZCRT 
LINK CARDIN 
MAP;QT 
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EXECUTING 


The internal file names 0A and OC translate to logical file numbers 01 and 03, respectively, 
and must be associated with the pathnames or the physical devices through a GET or ASSOC 
command. To execute the program, enter CARDIN. 


Enter the following commands: 
GET 01 >SPD>CDR00 
GET 03 “ VOL03>FILES>OLD_MASTER 
CARDIN 


SAMPLE COBOL TERMINAL SESSION (AC8111) 


Figure 7-1 illustrates an operator terminal session in which a system is configured, and the 
COBOL program AC8111 is compiled, linked, and executed on that system. The Entry Level 
COBOL compiler is specified in this session. To secify the Intermediate COBOL compiler, 
change the COBOL command and the LINKER LIB directive as follows. 


COBOLI AC8111 -LO -COUT >SPD>LPT00 
LIB “ZSYS51>ZCIRT;LINK AC8111;MAP;QT 


The LINKER LIB directive directs the Linker to search the secondary directory for COBOL 
run-time routines required for linking. To execute the program, enter AC8111. 


RDN 

($H)RDY: 

CWD +STCOB1>SOURCE>ACC208 
($H)RDY: 

COBOL AC8111 -LO -COUT >SPD>LPTOO 
($H)COBOL 0200 11/22/1511 

($H) 0000 ERRORS 

($H)END COMPILATION 

($H)RDY: 

LINKER AC8111 -COUT >SPD>LPTOO -SZ 4 
($H)LINKER-0100-11/23/1258 

LIB +ZSYS51>ZCRT;LINK AC81113;MAP;QT 
($H)ROOT AC8111 
($H)LINK DONE 
($H)RDY: 

AC8111 
($H)Q208NUA011001 
($H)Q208NUA011001 


($H) 
($H)RDY: 


3 4 
P P 


12 
PP 


Figure 7-1. Sample Terminal Session (AC8111) 


Figure 7-2 is a listing of the program AC8111, its compiled object text, and the output from the 
Linker. The program was compiled using the entry-level compiler. 


USING THE COBOL COMPILER 7-3 CB22 


SOURCE PROGRAM 7 
/ \ 
1 TDFENTIFICATION DIVISTON, . 2 
2 *PROGRAM 9208A01101.CNBNL FROM A2ZO0RACC. ARCHIVE, Se 2 
3 PRNGRAM-ID,. ACARI1I1. | 
4 FNVIRONMENT DIVISION, 
S CONFIGURATION SECTTON, 
6 SOURCE=COMPUTER, LFVFL#6, 
7 NBJECT*=COMPUTER, LEVEL=-6 PROGRAM COLLATING SFQUENCF TS ASCTI. 
8 DATA DIVISTON, 
9 WORKING@STORAGFE SECTION, 
10 01 QDSPLYPET, 
11 05 AOSPLYFIYX. 
12 10 FILLER PIC X(13) VALUE "Q2nanuAgt1001" 
13 10 ATCASE PIC XX VALUE SPACES, 
14 10 FILLER. PIC YX VALUE SPACES, 
15 10 STATUS PIC XX VALUE SPACES,. 
16 10 FILLER PIC XX VALUE SPACES, 
17 05 ODSPLYVAL, | : 
18 10 QACTRESLT PIC X(12) VALUE SPACES. 
19 10 FILLER PIC Xx VALUE SPACES, 
?0 10 AMEXYPRESLT PIC xX(12) VAL@E SPACES, 
at 10 FILLFR PIC XX VALUE SPACES, 
22 01 SUMMARYS, 
23 05 SUM=-LINE PIC X(7) VALUE "1 2 3 4", 
a4 05 RESULTS, 
2s 10 TESTIR PIC XX, 
26 10 TEST?2R PIC XX. 
27 10 TEST3R PIC XX, 
28 10 TEST4R PIC XX, 
29 x * * TFEFST GON TNe-—FARWARD AND BACK * * & 
30 PROCFDURE NIVISION, 
31 ANFANG, | 
32 DISPLAY ADSPLYFIX, 
33 GO TO PARA=3, 
34 WRAL, 
35 MOVE "GO TN PARA=3" TO QEXPRESLT. Z 
36 MOVE "FELL THRU" TO AACTRESLT, 
37 MOVE "a1" TO QTCASE. 
38 MOVE ue TO TESTIR, 
39 DISPLAY ADSPLYREC, 
Ts | MOVE wpe T TFST3R. 
42 GO TO + FOJ1. 
43 WRBA2, | 
aa MOVE "G0 TM FOJ1" TO MEXPRESLT. 
as MOVE "FELL THRU" TO AMACTRESLI. 
46 MOVE "O4" TON ATCASF. 
“7 MOVE wen TO TEST4R, 
4g  PISPLAY QADSPLYREC. 
49g . PARA@#=2, 
S0 MOVE "pm TO TFST2R, 
5} 60 TO PARA=1. 
52 WBA3, ‘ 
53 MOVE "GO TN PARA=1" TO QEXPRESLT. 
Sa MOVE "FELL THRU" IQ MACTRESLT, 
55 MOVE "03" TO QTCASF. 
56 MOVE “FA TO TFST3R, 
sy DISPLAY QDSPLYREC.. : 
S8 PARA@-3, 
59 MOVE "pe TO TESTIR, 
60 60 TO PARA=?, 
61 WBAA, 
62 MOVE "GO TO PARA=?" TO QEXPRESLT, 
63. MOVE “FFLL THRU" TN QACTRESLT. 


Figure 7-2. Sample Listings for AC8111 
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a myn MOVE “O02” TO. QTCASE. 
é 65 MOVE "F" TO TEST2R. 
i. 66 DISPLAY MDSPLYREC. 
67 FOJ1. 
68 MOVE "P" TQ TEST4R, 
69 MOVE SPACES TO QTCASF. 
7.0 MOVE SPACFS TO £QSTATUS.. 
71 DISPLAY ANSPLYFIX SUMeLINE. 
72 MOVE SPACFS TO ADSPLYFIX. 
73 DISPLAY ADSPLYFIX RFSULTS. 
74 STOP RIN, 
75 FND COROL. 
. WORKING=STORAGE SECTION 
—____Q4 __ Q@NSPLYREC 9000 __ y(ono04a) Yay eA OS Se Boe. 
| 0S QNSPLYFIX 0000 x(000021) 
10 FILLER 0000 X(000013) 
| ASE 00046 _H _x¢990002 St Fa Pato tS ae de are 
| 10 FILLER 0007 +H ¥x(000002) 
: 10 QSTATUS 0008 4H x(000002) 
tiStee SQ PP EER. 2c. 2-5 ee OD 0G C0000 0 2 Bet ees ex: Beatee ions 
05 QNSPLYVAL 000A H X(000028) 
10 QACTRESLT 00048 H x(000012) 
eee Os cee = 3 ES - Seer em eee tt 8 eee a Eoeere Oe Nt N'OU 1 0 Wa Semee pee Onsen er ean EEN eee 
10 QEXPRESLT 0O11 HH xX(000012) (DATA ALLOCATION MAP) 
! 10 FILLER 0017 4 x(000002) 
jane SUMMARYS. 2 OONM ILL KCONOOISDL Been 
- 05 SUM=LINE 0019 x (090007) 
| 05 RFSULTS 001C HH x(000008) 
: bale wee ES PA Be ae 28 oo OE AN ON000 2 3x, fen Pes er eer ae 
fs : 10 TFST2R 001N H x(000002) 
g 10 TEST3R OO1E HH x(000007) 
ae ee eee TESTER: ~aee QOOVF .. H. KXCON0N02). . a 
NO OYAGNOSTICS 
eee elo Pes ee eee oo UP OU RE) sree cya et S 
| — (HALF-WORD INDICATOR; 
DESIGNATED BY H) 
| (STARTING ADDRESS OF DATA) 
(DATA NAME) 
| Seamogs actA A ae oe ae 
(GROUP AND ELEMENTARY ITEM 
LEVEL NUMBERS) 
—— ae {GROUP-LEVEL NUMBERS) > —— 
Figure 7-2 (cont). Sample Listings for AC8111 
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| OBJECT CONE 


STATEMENT NUMBER 3 3300000 
' 0039 9RCO FFC6 LAB 
| 003R 9870 0000 LOR 
|9O3D £870 0015 1pR 
003F 0380 0000 LNJ $85,<ZCRTY! 
STATEMENT NUMBER 33 
‘i OOMF  B3CB FEFFS .JMP 0 2 
| STATEMENT NUMBER 34 


| 0022 0043 OC 
|_STATEMENT NUMBER 35 00 
0043 OF87 B 

0044 <a74F Dc 

OO4S. 2nSa.o. De 

0046 4F20 pc 
0047 «S041 pc 

TBR a GI te ges ol ne 
ee _ ee’ 


a a a a 


i CALL) 


(INSTRUCTION MNEMONIC) 
( INSTRUCTION) 
(LOCATION OF INSTRUCTION) 


LINKFR=-0100-11/23/1258 GCNS6 MON4G00=S$100"11/29/0670 
RU= ACA111 LINKED ON: 1901701701 0002244,1 =—SAF 


ACAI41 1701701 
CNBNL RFV. 0200 DATF 01701/01 TIMF A000 , 


7CRTYU 779208 
HRS ASSEMBLER P.49 N6/020/77 1340.3 ENT THU 
(C) COPYRIGHT 1976 BY HONFYWELL INFORMATION SYSTEMS. INC 


7CSTNP 770208 
HRS ASSEMBLER 2.49 06/02/77 1336.9 ENT THU 
(C) CNPYRIGHT 1976 RY HONFYWELL INFORMATION SYSTEMS INC 


ZCRTFR 770208 
HRS ASSEMBLER 2,49 6/02/77 1934.4 ENT THU 
(C) COPYRTGHT 1976 RY HONFYWELL INFORMATION SYSTEMS INC 


ex ACAI11 LINK MAP 1901701/01 09N02:44,1 
k&ESTART 1033 
**xLOW 0000 
**xHIGH O34 


k*KCURRENT 90381 


#KEXT NEFS 
Pp 7JHCOMM 00n0 


P 7HREL. 0000 
xx ROOT 0000 
x ACRI11 9000 
ACRI11 0033 7CMATIN 90031 
x ZCRTYU OBI 
7CRTY1 8 O2F1 7CRTY2 0312 ZCRTY3 0334 


Figure 7-2 (cont). Sample Listings for AC8111 
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x 7CSTQP N33E 
ZCSTNP OSE 
* Z7CRTFR 9341 
ZCRTER 0353 


® xIINDEF 
x ACRHII1 9000 
x 2ZCRTYU 02R9 
x TZCSTNP N33E 
x 7CRTER 0341 


RRRKREKKKKE 

ROOT ACA111 

RRKKKKKKK 

HIGHEST OVLY /JNIIM OF SYMS 1 

KERERKKKKK 

SAF 

RHEKKEKRKKKEKK 

ROOT AC&111 BASF 000 ST 9033 ~eool HIGHZ0381 
RREKKKKKE A 

*SIZE OF ROOT AND STATIC OVLYS= 03A1 HT REL RCD= 9 
RERKKKEKRER 

LINK. DONE 

REKKHKEKEER 


Figure 7-2 (cont). Sample Listings for AC8111 


CALLING FORTRAN ROUTINES FROM AN ENTRY-LEVEL COBOL MAIN PROGRAM 


Entry-Level COBOL programs can call FORTRAN subroutines and conversely. This enables 
a COBOL application to utilize the features of the FORTRAN language, such as the intrinsic 
routines, and FORTRAN run-time libraries. 


The COBOL main program must be linked with all the called FORTRAN routines to form one 
bound unit. The FORTRAN routines and libraries must either be in the working directory or one 
of the libraries searched by the Linker, as specified by the Linker LIB and LIBn directives. 


Figure 7-3 is a sample Entry-Level COBOL source program, COBFRT, whose function is to 
calculate and print the square roots of three integers. Since the COBOL library does not have a 
square root routine, a FORTAN subroutine, FRTRAN in Figure 7-4, is used to convert the 
passed COBOL integer argument values to read values and call the FORTRAN square root 
routine. 


The commands entered from the operator terminal are listed in Figure 7-5. COBFRT.O and 
FRTRAN.O are both in the working directory FRTCOB, the COBOL run-time library, ZCRT, is 
in the directory specified by the Linker directive LIB, and the FORTRAN run-time library, 
ZFRT, is in the directory specified by LIB2. The system volume, ZSYS51, contains the 
FORTRAN and COBOL compilers, ZFRT, ZCRT and the operating system software. Volume 
FRTCOB contains the source modules (COBFRT.C and FRTRAN.F), the object modules 
(COBRFT.O and FRTRAN.O) and the linked bound unit COBFRT. 
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SOURCE 


SCNMwOanOoVeLWwWN & 


11 


4g 


PROGRAM 


TOFNTIFICATION DTVISTON, 


TO GET THF SQUARE RONUTS 


PROGRAM=TD. CORFRT. 

x THIS PROGRAM TS AN FXAMPLF OF A COBOL PRUGRAM 

x CALLING A FORTRAN PRUGRAM 

* UF SOME INTFRGERS AND RKFTURNING FHAT VALUF TO THE 
* CNBNL PRUGRAM 19 RE DITSLPAYFD. | 
x 


FNVIRUNMFENT DIVISION, 
CONFTGURATTON SECTTON, 
SUURCE=COMPUTER, 
NBIECT=-COMPUTER, 
MATA OTIVISTON, 
WUPKTNG=<STNKAGF SECTTON, 


HTS-SFRTES=<-60 LFVFL-6. 
HTS-SFERTES-460 LEVFL=-6, 


77 WORK COMP-1 VALUE +9, 
77 VAL6°2P5 PIC 999 VALUF 625, 
77 ANS2S PIC 99, 


77) =VALI4SG PIC 999 VALUF 
77) =~ANS12 PiC 99, 

77 VAL9RO1 PIC 9999 VALITE 
77 4nS99 Pit 99, 

N91 ANSLN, 


2 FILLFR PIC XX 
02 TNTVAL PIC 9999 
02 FILLFR PIC X(A) 
92 SQVAL PIC 9999 
02 FILLFR PIC XXX 
PROCFUURF NIVISION. 
PAPAI, 
MOVE VAL625 TO WORK, 


CALL | 
MOVE WORK TO ANS25, 
MOVE VAL144 TU WORK, 
CALL 
MOVE WORK TO ANSI2. 
MOVE VAL9801 TO WORK, 
CALL 
MOVE wORK TO ANS99, 
DISPLAY "INTFGER SA, 
MOVE VAL625 TO INIVAL, 
MOVE ANS25 TO SQVAL. 
DISPLAY ANSLN, 

MOVE VAL144 TO INTVAL. 
MUVE ANSte2 TO SQVAL. 
DISPLAY ANSLN. 


MOVE VAL9801 TO INTVAL. 


MOVE ANS99 TN SUVAL, 
NISPLAY ANSLN, 
STOP RIN. 

END COROL 


NO DIAGNOSTICS 


144, 


9RO1. 


VALIIE SPACES. 
VALUE ZFRO, 
VALUIE SPACES, 
VALUE ZERO. 
VALI'IE SPACES. 


"FRTRAN" USTNG WORK. 


"FRTRAN" WSTING WORK, 


"EFRTRAN" USING WORK. 


RT.". 


Figure 7-3. COBOL Listing of COBFRT 
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SUBROUTINE FRTRANCI) 
J=tl 
xX FILOAT(J) 
Y SART(X) 
I NINTCY) 
RETURN 
END 
% DIAGNOSTICS 


“NOU EWR 


: Figure 7-4. FORTRAN Listing of FRTRAN 


PNM 

(AA)PDYs 

CH) *FPTC OB 

(AA) PDYs 

COROL CORFRT -CONT »SeNst PLAN 
CAAYCOROT OAPND FWIAsPPSIATI 
(AA) QNAN FRNNDS 

CAAJEND COMPTTLATT ON 

(AA) PNY? 

FQPTRAN FRTRAN -CONT >SPN>TPTOAN 
(AA) FORTRAN M4ED 1172271119 
(AA) ON090 FRD COUNT FRTPRAN 


(AA) PDY? 
ie LINKER COBFRT ~-COUT >SPN>7T PTNO 
. (AA)LINKER-O1 00-1 1722371 25” 


LIB *ZSYS51>ZCRT 
LIB2 *ZSYS5St>ZFRaT 
LINK COBFRT 

MAP 3QT 

(AA)ROOT COBFRT 
(AA)LINK DONE 


(AA)RDY8 

COBFRT 

(AA) INTEGER SO. RT. 
(AA) 0625 0025 
(AA) 0144 0012 
(AA) 9801 0099 
(AA) RDY# 


Figure 7-5. Operator Terminal Session for COBFRT 
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Section 8 
Using the FORTRAN Compiler 


This section illustrates the use of the FORTRAN compiler to construct programs written in 
the FORTRAN language, and to perform FORTRAN chaining. 


SAMPLE FORTRAN TERMINAL SESSION (MATINV) 


Figure 8-1 illustrates an operator terminal session in which the FORTRAN program 
MATINV is compiled, linked, and executed. The FORTRAN compiler is on the search path, and, 
therefore, a full pathname is not needed to locate the compiler. The Linker LIB directive directs 
the linker to search the secondary directory for FORTRAN runtime routines (ZF RT) required 
for linking. Two files, unit number 2 and 3, are associated with device pathnames. To execute 
the program, enter MATIN V. Figure 8-2 shows the MATINV source listing and the linker 
output when the program was linked. 


FORTRAN VL782 SUB] MATINV -COUT >SPD>LPTOO 
(SH) FORTRAN 

($H) 0000 ERR COUNT MATINV 

($H)BDY: 

LINKER VOL2 TEST MATINV -COUT >SPD>LPTOO 


LIB ZFO400 ZFRT 
LINK MATINV;MP;QT 
($H)ROOT MATINV 
(SH)LINK DONE 
($H)RDY: 

ASSOC 2 >SPD>CDROO 
($H)RDY: 

ASSOC 3 >SPD>LPTOO 
($H)RDY: 

MATINV 

($H) STOP 

($H)RDY: 


Figure 8-1. Sample Terminal Session (MATINV) 


FORTRAN CHAINING 


A method of creating and controlling execution of overlays within FORTRAN programs to 
conserve memory space, commonly known as CHAINing, can be used wherein an executable 
bound unit (overlay) is executed as a chain prior to invoking the next chain. 


The source statement for referencing a chain is: 
CALL CHAIN(e) 


where e is an integer expression resulting in a value greater than or equal to zero, identifying 
the chain to be loaded. Proper linking results in a bound unit with overlays that require 
minimum memory for execution. 


Although there are no rules for defining the best method of segmenting a FORTRAN 
application into chains, the following should be considered: 


1. The largest chain determines the overall memory requirement. 
2. Any chain may be called by any other chain as many times as required. 
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da Td NOO NVaYLYOd FHLONISN 


G8 


ZCMO 


MATTNY GCUS6H MIDNOVSLIVRKLISITS «FORTRAN MAER 11/22/4149 1977/12/07 1312:236.9 SAF PAGE 001 


re ire ere es Sere 


RR | AN eA ES ESET mre 


MATRLY INVFRSION 


DTMENSLON AF29,20),R( 20029), 1LPVOT C29), INDEXC20,?20),PIVOT(?P0) 
RPITECS,7) 
5 FORMET (TAT, 1 SY, MATING!» //,8X, 1 AHGIVEN MATRIX As /) 


= Wits e& 


6 RFAM (2,1. N,M 
7 1 FORMAT(T2,1°)- 
———-8____2_ FARMAT(TP AOS! UN oe fa cae ee 
on Q ff = 1,% 
Re 9 RFAN Fe,2) CACI,J),.9=1,") 
ee LS URN SeOPRReMae ° LIONCLIE me! 2 6.) eee ae ec ee eee ee eee oe 
12 14 wWRITES3,20( A(T, Te JEL eM) 
13 om 41 [=t1,™ 
14 | oO 11 Jel1,N ete ete ee th ete ng ae ee 
: 15 iF (T-1)12,1%7%,12 
16 {2 pfl,yryen, 
4 CGA Tf ee te seed 
18 3 Bf1,Jd=1,4 
tg 411 CONTINUF 
; : HUTTSAeTZAT TON 
ai on 20 Jtle,Nn 
22 20 LEVATF SY =0 
23 on &99 Ly ee a ee RE ee a eas See Re 


24 C SFAQCH FOR PIVOT FLEMFNT 


T20.0 
ae6.. . DO 105 tst,N 
27 IFC TPVOT(C I) -1)69,105,40 
78 40 vA 1909 ¥ S1,N 
29. IFC TPVGOT(K)=1989%,1090,749 


E80 BO TFCTx«2~(AC.7,K) 1e*2185,100,109 
#5 JTROW sJ 

aa. eh 

23 {- At Je K) 

Zu 190 CONTINUF 

Raster emeeei GLE 2 2 a ee eee ee 

£6 IPVATCICOL)ZIPVOTCICON) +1 

C. CINTFRCHANGE ROWS TO PUT PIVOT ELEMENT ON ATAGONAL 

‘Sete rFCTROW-IC 149,260,140 


Figure 8-2. Source and Linker Output Listing (MATINV) 


aad TIdWOO NVaLlyod GH ONISN 


€-8 


664) 


39 soy DM 700 1 29,N 


4g THACJROW,L) 
ay AT POM, LD) SACTCOL LD) 
ie 2990 ACICOI,L) =f 


~~  &B IF(M) 260,760,710 
ae. ae M 759 Ls 
THBCITPON,1) 

BEITPOW,! ) SRCTCAL,L) 
250 BIrGt,t) =f 
240 INDFX(I,13 =IROW 
INDFX (7,2) =TCAL 
_  PTVOTCID SACICOL,TCOL) 
C DTvVTOF PIVOT ROW BY PIVOT ELEMENT 
ACIfCELL,TCNAL) 271.0 
OM 350 L=s1,N 
350 ACTCOL,LY SACICOL,L)/PIVOTC(L) 
IF (M) 489,780, %60 
60 9 %70 L=1,™ 


me | 370 BCICOL,L) SRCTCOLSLI/SPIVOT(T) 


58 C | RFDUCF NON=@PIVOT ROWS 
59 380 DN SSOLT=SI,N 
6() IFCLIT=IfGl) 490,550,400 
6) 409g T = AfLT,TCOAL) Acne 
be ACLT,TCNL)Y 20.0 
63 DO 450 | st,N 


64. . S50 ACLT-LIZACLT CICOL-LI*T 
65 IF (M)S59,550,469 

Ao 449 09 SON Lat,” 

67 990 BfLT,!) = BELT,! J=BCICOL,!)*T 
68 S50 CONTINUF 


69 C INTFROHANGE COLUMNS 
70. 690 ON 71NIF1,N reel ta 
71 L= tee] 
Te IFC TNIEX CH, TI INDOEX EL» 29) 450,710,439 


sient O80 TON FT NDEY Clo) 


74 ICOlL = TNDEY(L,?) 
FS Dn 7Q8 Ksi1,N 
7% 7 SACK, TROW) | 
77 ACK, IRQ) ZACK, TOOL) 
78 ACK,IFOl) s T 
79,795 CONTINUE __ 


on 


Figure 8-2(cont). Source and Linker Output Listing (MATINV) 


UATIGNOO NVaLdOd GHLONISN 


v-8 


6680 


RQ 710 CONTIAMUF 


ee | WRITE(3,14) 
2 1o FORMAT(//SX,22HTNVERSFE OF MATRIX A/) 
R3 vA 15 [ = 4,N 
RY 15 APITETS, 2004 (CT, I), JS1,%) 
RS WPITECS, G44ay 


Ro 44d FORMAT(1H1) 
R7 Tun stor 1 

AB ENO. 

0 DTAGNOSTICS 


cL es cuca ANE. 2 Seance 


MATINy 771202%9 ee ee eg ee re eS Ee eC ee 
FORTRAN “GFiI) 11/27/1119 1977/17A/0N2 1317336.9 SAF 


WFYFTO 77411000 - 

HRS ASSE“BIE® 2,69 41/49/77 1035.9 EST THU 
(C) COPYPTeHT 1977 BY HONEYWELI TNFORMATTON SYSTEMS TNR 
7FSFTO 77111000 | ane 5 Aes 
HRS ASSEMBLER 2.50 11/19/77 1030.1 EST THY | caste epee 


(TC) CUPYPICRT 1977 BY HONEYWELIE TiVFOEMATTON SYS|FMG Tvr 
7FSKN4 


A RE OT HE EES ORS OE HOTT SE SE NE RT OEE SS: ST SANE Hr nS AAA SE OE me wee + NIN 


JFQFTO 77950100, 
HRS ASSEMBLER 2.60 1070%/77 0798.3 ENT MON 
(C) COPYRIGHT 1977 BY HONEYWELL TNFQPMATTON SYSTEMS 


FFPFTU 77111099 


HRS ASSEMBLES 2,50 81/19/77 1054.0 ES a 
(C) COPYRIGHT 1977 BY HONEYWELL aeaeni Gian SYSTFMS TNC 


JEFF. . A , 

HRS ASSEMBLER 2.60 11721/77 1539.86 EST MAN 

(CY COPYRIGHT 1977 BY HONEYWELL TNFEQOMATTO™ SYSTEMS TNE 
ZEEK] 


aera e 


JFLOTE. 
‘HRS ASSEMBLER 7.5( . 
(C) COPYRIGHT 1977 BY HONEYWELL TNEOPMATTUN po i 


WET 771 n 


Figure 8-2(cont). Source and Linker Output Listing (MATINV) 


YaATIGNO)D NVULYOd GHLONISN 


c-8 


664) 


MRS ASSEMBLER 2.50 11/19/77 1623.8 EST THU 3 
AC) COPYRIGHT 1977 BY HONEYWELL TNFOPMATION SYSTEMS TNC 


ee MATINY LINK MAP 4977/12/92 13152791 
ARSTART BIg 

weLoW 0090 

‘waHIGH 1C45 

wePuReREnT 4 


RKEXT NEFS 


Oc ET a a ae 
Po 7HREL «(9000 EET ISS 


MATINY 000 
SZFNPK 99000 
7FMATN ABIYG 
ZFYFIO. EAD 
» SPEYXRE OBA. 
_« Z2FS8FTO ERS _ ee ee 
7FSWFS ERS 7FSRFS NENS 7FSwWS OF 91 7ESRINS 


ied ae 


* 


“fee aus 7FPSTP NF60 a 

_ JEEFT TFA wos eer ee 
JEAN AF AS 7FFFTOQ FAS 7FFMFI 1268 7FFMFO 1288 
7TFFEMAI] 1288 7FFM4U 12A°8 7FFLFEI 1288 7FFLFO 1286 


7FFLAT 1285 7TFFLAQ 1285 7ZFFCLI 12NE 7FFCLO 12NE 
__._7FFCS 7FFCSO. 7FFCFI ZFFCFO ; 
| 6OFFFCAT OVang 7FFCAQ 12N9 TFEWFF 142 7FFRFF 44C2 
< ZFFIFI 13460 7FFIFO 1360 7FFIAI 1367 7FFIAQ 1367. 
“FE YFI é | 36 ZFEJAL 136A : 

- 7FFRKEL 9356 PFEKEQ 1356 7FFKAT 13A4 
2 TFFOFI 1502 7FEDFQ 15N2 7FFDAI 4FC 
7FERXA] V4FF 7FFRAO 4FF  7FFRFI 1995 
 & FFTOTE 19073 

. 7FTOTE 1903 7FFINI 19" 
ak 7FUETU SAN 


Figure 8-2(cont). Source and Linker Output Listing (MATINV) 


Ya TdNOO NVaLdod GHLONISN 


CCA 


RONT “aTINv 


7FIL431 TANY TERE 1a°D 
TF AANPT 1A%A 7TFRRED 1A4D 
7FSUR5 14H90 


*ekeUNNEF 
MATINV 9049 
TEYFTY NERD 
7FSETYU MERS 


AFAQ 
NE AS 


RKREKKKE KES 
RONT MaATIMY 
KEK KHEKEKIK 


HIGHEST OVIY sii'iM OF SYMS 


RENKKKKKHK 
SAF 
Kew KKKKK 


amet ew ee = - 


RKKKKKKRKK 


L*STZF OF RMGT AND STATIC OVLYS= 1045 | 


WHR KEKKK 
LINK DAF 


KKK KKK KKK 


res 


rer es ae 


7FUWHP 1 ANB 
7FSURBL = 1A58 


St Ob1g 


7FURIIF LARA 
7JFSURG C91 


HT REI 8CNs 58 


Figure 8-2 (cont.). Source and Linker Output Listing (MATINV) 


Po 


7. 


The first statement executed in a loaded chain is always the first executable statement of 
the first main program in the chain. (A chain cannot begin with a subroutine.) 


All data passed between chains must be in unlabeled or labeled COMMON blocks that 
have been defined within the root. Because of Linker constraints, the first occurrence of a 
COMMON block defines its size, therefore care must be exercised when using COMMON 
blocks of different sizes. 


Within programs in a chain, either labeled or unlabeled COMMON may be freely used as 
a means of data communication. 


Data statements (for data not in COMMON) within a program of a chain cause the data to 
be initialized each time the chain is loaded. 


Files are common to all chains since the run-time work area is defined within the root. 


Figure 8-3 shows an assembly-language program, CHAIN, whose function is to load the 
chains specified in the CALL statements of the FORTRAN programs shown in Figure 8-4. These 
latter programs call each other at various times and print messages indicating their loading and 
execution. 


i, maty 


0 
0 


m COON O MEW 


NO US WN eR 


000001 TITLE CHATN 

000002 xLoC ZFIOTE 
000003 CTRL LINK ZFIOTF 
000004 XDFF CHAIN 


000005 CHAIN (OV#) 
000006 0000 CL =$P1 
000007 0001 LOR $R2,*3B7.1 
000008 0003 LDV $Ro,-1 
000009 0004 MCL 
Nn00010 0005 DC 7*°0700' 
000011 * ERROR RETURN 
000012 0006 JMp <7FIOTE 
000013 91008 OC 0 
000014 FNDCHN RFSV 0 
000015 0009 END CHAIN 

000 ERR COUNT 

0128 WORD SYMBOL 


Figure 8-3. Assembly Listing of Program CHAIN 


PROGRAM PROGOO 
COMMON IC 

COMMON ¥,TFLR 

DIMENSION ARRY(62) 

COMMON /LABI/DUMMY (50) 

COMMON /LAB2/ DIUNX(527) 
IC = 0 

WRITF (3,5) 

S FORMATC'L'/' PROGO APPEARS ON FXECUTF LINE = CALLS CHAITIN 0'7) 

CALL CHAIN(0) 

FND 

0 DIAGNOSTICS 


PROGRAM PRNGO) 
COMMON TC,xX 
CAMMON /LACI/ DATAI(25S) 
COMMON /LACe/ DATA20378) 
CHARACTER Ax20 
[f=1C+1 
PEADC 2,215) A 


Figure 8-4. FORTRAN Programs Calling the CHAIN Function 


USING THE FORTRAN COMPILER 8-7 | CB22 


8 P15 FORMAT(A20) 


9 WRITE(3,215) A 

10 CALL PROGD 

11 WRITE (3,5) 

12 5 FORMAT(/* PROGL IS CHAIN 0 WHICH CALLS CHAIN 1°) 
13 CALL CHAIN (1) 

14 END 


0 OTAGNOSTICS 


SURRQUTINE PROGD 
COMMON /LAC1/ DATA1(25) 
COMMON /LAC2/ DATA?P(378) 
WRITE (3,305) 

305 FORMAT(SX,' SUBROUTINE PROGD LOADED'/) 

RETURN 
END 

0 DIAGNOSTICS 


“NO VWI EW DQ = 


1 PROGRAM PRNGO2 
2 COMMON /LAB1/DUMMY (50) 
3 DNIMENSTON ARRY(€ 62), ARRY1(157) 
4 CHARACTER*8& Al,A3,A4 
5 COMMON IC,7,TQ 
6 TF (TC.GT.1) GO TO 10 
7 TQ=0 
8 Aiz=* CHAIN 0O' 
9 WRITF(3,5) Al 
10 S§ FORMAT(/' PROGe IS CHAIN 1 ©— WHICH CALLS =-',A8) 
11 CALL CHATIN(O) 
12 10 A%=' CHAIN ?! 
13 TF (TQ.EQ.4) GA TO 20 
14 WRITF(3,5) A3 
15 CALL CHAIN (2) 
16 20 A4Y=' CHAIN 3° 
17 WRTTF (3,5) AG 
18 STOP 
19 ENN 


0 DTAGNOASTICS 


PROGPAM PRNGNS 
CHARACTER Ax?y 
WRTITF (3,5) 
READC2, 215) & 

P15 FORMAT(A20) 
WRITFC3,°15) A 

CALL CHAINGS) 

2B: FORMAT(/' PROG3 1S CHAIN 2 = WHICH CALLS CHAIN 3'7) 

FIND 
9% DTAGNOSTICS 


censor kwh 


PROGRAM PRNGOY 

CUMMON IC,F,T7 

CUMMON /LARLZ DUMMY(SO) 
ToT] 

K=4 

TE CTLFW.4) KE? 

TF (CT.Fu.5) EATN 99 
WRITE (3,5) Kel 


~—_ 
ocoecrns OM &WWN = 


S FURMAT(/' PROGH TS CHAIN 3 = CALLS CHATIN',Te/) 
| CALL CHAIN (Kel) 
11 99 STOP 
te END 


0 DTAGNOASTICS 


Figure 8-4(cont). FORTRAN Programs Calling the CHAIN Function 


USING THE FORTRAN COMPILER 8-8 


CB22 


Figure 8-5 is the output listing resulting from the linking of the programs constituting the 


chain. 
LINKER=-0100-11/23/1258 GCOS6 MOD4G00-—S100-11/29/0620 
BUS TSTCHI LINKED ON: 1977/12/02 1354:306.5 -SAF 
PROGOO 77120200 
FORTRAN M4FD 11/22/1119 1977/12/02 1352:46.3 SAF 
CHAIN 


1977/12/02. 1326322.5 ASSEMBLER=-0100-11/17/1346 GCOS6. MQOD400-S§100-11/29/0620 


ZFSFIO 77111000 

HRS ASSEMBLER 2.50 11/10/77 1030.1 EST THU 

(C) COPYRIGHT 1977 BY HONEYWELL INFORMATION SYSTEMS INC 
ZFSKO1 


ZFQFIO 77050100 
HRS ASSEMBLER 2.50 10/03/77 0708.3 EDT MON 
(C) COPYRIGHT 1977 BY HONEYWELL TNFORMATION SYSTEMS INC 


ZFPFIOQ 77111000 
HRS ASSEMBLER 2.50 11/10/77 1054.0 EST THU 
(C) COPYRIGHT 1977 BY HUNEYWELL INFORMATION SYSTEMS INC 


ZFEFTIO 77112100 

HRS ASSEMBLER 2.50 11/721/77 1539.8 EST MON 

(C) COPYRIGHT 1977 BY HONEYWELL TNFORMATION SYSTEMS INC 
ZFEKO1 


ZFIOTE 77072900 
HRS ASSEMBLER 2.50 10/13/77 0937.8 EDT THU 
(C) COPYRIGHT 1977 BY HONEYWELL ITNFORMATTON SYSTEMS INC 


ZFUFTO 77111000 
HRS ASSEMBLER 2.50 11/19/77 1623.8 EST THU 
(C) COPYRIGHT 1977 BY HONEYWELL TNFORMATION SYSTEMS INC 


xx TSTCHI LINK MAP 1977/12/02 1354306.5 
K*KSTART 0668 
x**xLOW 0000 
**xHIGH 145C 


**xSCOMM 0164 
*KCURRENT 145C 


kKaKEXT DEFS 
Pp 7HCOMM 0000 
P ZHREL 0000 


xx POOT 0000 
x PRNGOO 0000 
C S&ZFWRK 0000 
C $COMM 0164 
C CLAB1 016A 
C tARe2 QO1CE 


PRONGOO 0668 
x CHAIN 06A3 
CHAIN 06A3 
x 7ZFSFIO O6AC 
ZFSWFS 06AC ZFSRFS 06CC ZFSwWUS 0708 ZFSRUS 0726 
x ZFQFIO 074C 
ZFQWRK 074C 
* ZEFPFIO 0757 
ZFPAUS 9075C ZFPSTP 0757 
x ZFEFTO 079C 
ZFAN 079C ZFEFTO 079C ZFEMEI OAR? ZFEMEO OAB2 
ZFEMAI OAT7F ZFEMAOQ OATF ZFELEI OA8e ZFELEO OA82 
ZFELAI OATC 7ZFELAO OATC ZFECLI OANS ZFECLO OADS 
ZFECSI OADS ZFECSO OAD8 7FECEI OANB 7FECEO OADB 


Figure 8-5. Linker Output for Chained Programs 


USING THE FORTRAN COMPILER 8-9 CB22 


7FFCAI OADO 
7FELEI 0B64 
7FFJEI 0B64 
ZFEKEI 0B56 
7FEDEI OCFI 
ZFERAI OCF6 
x Z7FIOTE 11iRA 
7FTOTE 11iRA 
x Z2FUFTO 1202 
7FLB1 12D4 
ZFAWRT 1231 
ZFSUR6 1387 
* kK UNDEF 
* PROGOO 0000 
* CHAIN 064% 
x 7FSFIO O6AC 
x 7FOFIO oO74C 
x ZEPFIO 0757 
x ZFEFIO O79C 
x 7FIOTE 11BA 
x ZFUFTO 12Ne 
PROGO1 77120200 
FORTRAN M4FD 
PROGD 77120200 


Kx 


TSTCHI 


R*KSTART 
**xLOow 
**x HIGH 
a*kKECOMM 
KKCURRENT 180F 


KKEXT DEFS 


p 
p 


* 


OOO * 


7HCOMM 
7HREL. 


ROOT 
PRNGOO 
$ZFWRK 
$COMM 
LAB4 

L ARQ 
PRNGN0 
CHAIN 
CHAIN 
7FSFIO 
Z7FSWFS 
7FRFIO 
ZFQWRK 
ZFPFIO 
ZFPAUS 
ZFEFIO 
7FAN 
ZFEMAI 
ZFELAI 
ZFECSI 
ZFECATI 
ZFEIEI 
ZFEJEI 
ZFEKEI 
ZFEDEI 
ZFERAI 
ZFIOTE 
7ZFIOTE 
7FUFIO 


FORTRAN M4ED 


1782 
145¢ 
180F 
164 


00900 
N000 


0090 
0090 
0000 
0164 
QN16A 
Q1CE 
0668 
0643 
06A3 
N6AC 
N6AC 
O74C 
074C 
0757 
075C 
079C 
079C 
OATF 
OA7TC 
OADB 
QOADO 
0B64 
0B64 
0856 
OCF9 
OCF6 
11RA 
11BA 
1202 


Figure 8-5(cont). Linker Output for Chained Programs 


ZFECAOQ 
7FEIEO 
ZFEJEO 
7FFKEQO 
ZFEDEO 
ZFERAO 


ZFFINI 


ZF GF 1 
Z7FRRED 


LIisS2°/1119 


11/22/1119 


{INK MAP 


7ESRFES 


7FPSTP 


ZFEFTO 
ZFEMAQ 
Z7FELAO 
ZFECSO 
ZFECAQ 
ZFEIFO 
ZFEJEO 
7FEKEO 
ZFEDEO 
ZFERAOQ 


ZFFINI 


USING THE FORTRAN COMPILER 


0ADO 
0B64 
0B64 
0B56 
OCF 9 
OCF6 


11C9 


1294 
1244 


7FEWFF 


ZFETATI 
ZFEJAI 
ZFEKAT 
ZFEDAI 
ZFEREI 


7FUWUF 
ZFSUB1 


OCR9 


OBSE 
B61 
0858 
OCF3 
OCFC 


1202 


124F 


ZFERFF 
ZFETAO 
ZFEJAO 
ZFEKAO 
ZFEDAO 


ZFEREO 


ZFURUF 
ZFSUB4 


1977/12/02 1352346.3 SAF 


17712702 135°2346.3 SAF 


1977/1702 1354:306.5 


N6CC 


0757 


079C 
OATF 
OATC 
0AD8 
OADO 
0B64 
0B64 
0856 
OCF9 
OCF6 


11¢9 


ZFSwUS 


ZFEME I 
ZFELEI 
ZFECLI 
ZFECEI 
ZFEWFF 
ZFETAI 
ZFEJAI 
ZFEKAT 
ZFEDAI 
ZFEREI 


8-10 


0708 


0A82 
0A82 
OAD5 
OADB 
OCB9 
OBSE 
0B61 
0B5B 
OCF 3 
OCFC 


ZFSRUS 


ZFEMEO 
ZFELEO 
ZFECLO 
ZFECEO 
ZFERFF 


ZFETAO | 


ZFEJAO 
ZFEKAO 
ZFEDAQ 
ZFEREO 


0CB9 
OBSE 
0B61 
0865B 
OCFS 
OCFC 


12e1 
13F8 


0726 


0AB2 
0A82 
OADS 
OADB 
OCB9 
OBSE 
0OB61 
0B5B 
OCFS3 
OCFC 


CB22 


xz 


ZFLBI 1204 7FGF1 1294 ZFUWUF 1202 ZFURUF 1221 
ZFAWRT 1231 ZFBRED 1244 7FSUB1 = 124F ZFSUB4 13F8 
ZFSUB6 1387 

P ENDCHN 145C 


xx XROGOO 145C 
x PROGO1L 145C 
C CAC1 145C 
C LAC? 148E 

PROGOL 1782 

-*& PROGD T7DF 

PROGD 170F 
x kUNDEF 


x PROGOO 0000 
CHAIN N06A3 
ZFSFIO O6AC 
ZFQFIO O74C 
ZFPFIO 0757 
ZFEFIO O079C 
ZFIOTE 118A 
ZFUFIO 1202 
PROGOL 145C 
PROGD 170F 


e+e ee eH eH HH FH 


PROGO2 77120200 
FORTRAN M4ED- 11/22/1119 1977/12/02 1352346.3 SAF 


7FBFIO 77091600 
HRS ASSEMBLER 2.50 10/15/77 1612.6 EDT SAT 
(C) COPYRIGHT 1977 BY HONEYWELL INFORMATION SYSTEMS INC 


xx TSTCH1 LINK MAP 1977/12/02 13543:06.5 
*KSTART 1612 
**xLOW 145C 
*xkHIGH 16FB 


**x$COMM 0164 
k*xCURRENT 16EB 


aaExT DEFS 


P ZHCOMM 0090 
P 7HREL 0000 


zx = ROOT 0000 
* PROGOO 0000 
C $S$ZFWRK 0000 
C $COMM 0164 
C CLAB1 O16A 
C LAB2 01CE 


PROGNO 0668 
* CHAIN N6A3 
CHAIN 06A3 
* ZFSFTO O6AC 
7FSWFS O6AC ZFSRFS O06CC ZFSWUS 0708 ZFSRUS 072B 
x ZFOQFTIO O74C 
7FQWRK O74C 
x ZFPFTO 0757 


ZFPAUS O75C ZFPSTP 0757 
x ZFEFTO O079C 

7FAN 079C 7FEFIO 079€ 7FEMEIT 0A82 ZFEMEO OAB2 
ZFEMAT ATF 7FEMAQ OQATEF ZFELFI 0A82 ZFELEQ O9OAB2 
ZFELAIT OA7C 7FELAO OATC ZFECLI OADS ZFECLO QOADS 
ZFECSI OADB Z7FECSO OAD8B ZFECEI OAODB ZFECEOQ OADB 
ZFECAT OADO 7FECAO OANDO ZFEWFF OCR9 ZFERFF OCR9 
ZFEIEI 0664 ZFEIFO 0864 7FFIAL OBSE ZFETAQ OBSE 
ZFEJFI O0B64 7FEJEO O0B64 ZFEJAT B61 ZFEJAQ 06861 
ZFEKEIT 0856 7FEKFO 01856 ZFEKAI 08658 ZFEKAQ OBSB 
7FEDEIT OCF9 7FEDEQ OCF9 ZFEDAI OCF3 ZFEDAQ OCF3 


Figure 8-5(cont). Linker Output for Chained Programs 


USING THE FORTRAN COMPILER 8-11 7 oir © CB22 


Z7FERAT 
ZFIOTE 
ZFIOTE 
Z7FUFTO 
7FLB1 

ZFAWRT 
7FSUB6 
ENDCHN 


XROGOO 


XROGO2 
PRNGN2 
PROGO2 
ZFRFTO 
ZFBCMC 


*XUNDEF 


x 


ee 2 ee eH HH 


PROGOO 
CHAIN 

ZFSFIO 
ZFQFIO 
ZFPFIO 
ZFEFIO 
ZFIOTE 
ZFUFIO 
PROGO2 
ZFBFIO 


0CF6 
TIRA 
11BA 
1202 
1204 
1231 
1387 
145C 


145C 


145C 
145C 
tole 
16R3 
16R3 


0000 
N6A3 
N06AC 
074C 
0757 
079C 
11BA 
1202 
145C 
1683 


PROGOS 77120200 


xx 


TSTCH1 


KKSTART 
wAL UW 
k*xHIGCH 
kxECNMM 
*xCUPKFENT 


*REXT NEFS 


p 
Pp 


OOOO we & 


7HEOOMM 
7HREL 


RONT 
PRNGOAYQ 
S7FWPK 
€COMM 
t AR 1 

lL AR? 
PRNGOD 
CHAIN 
Cr ATM 
7ESFTU 
7FSWES 
TJEOF TO 
7TFQAWRK 
7FPFTU 
7FPAIIS 
7FFFTOU 
7FAWN 
7FEMAYT 
7FFLAT 
7EFFCSL 
7FFECAI 
7eF IF I 
7FFJFI 
ZFFKF | 
7JFFOFI 
ZFFRAI 
ZFTOTE 


FORTRAN MED 


145C 
145C 
1T4R6 
0164 
14R6 


ANDY 
NOQAY 


N00U 
NON 
NVAYU 
NLPAG 
N164 
NICE 
N644 
NoAS 
Noh 4 
NHAL 
NHAC 
N7AC 
OFAC 
075] 


N75C. 


079C 
N79C 
OATF 
OATC 
QO ANH 
NADU 
OKA4 
On64 
0650 
OCF Y 
NCF6 
1184 


Figure 8-5(cont). Linker Output for Chained Programs 


7FERAO 
ZFFINI 


ZFGF4 
7FRRED 


11/22/1119 


LINK MAP 


7TESRES 


7PSTP 


TRFF TQ 
7EEMAGQ 
7FFL AU 
7EECSU 
7EFCAYQ 
7ErF IE Y 
7FFE UFO 
7FEREQ 
7FFDEQ 
7EF RAD 


USING THE FORTRAN COMPILER 


NCF6 
11¢9 


1294 
1244 


ZFERET 


ZFUWUF 
7FSUB1 


OCFC 


1202 
124F 


ZFEREO 


7FURUF 
ZFSUB4 


1977/12/02 1352386.3 SAF 


1977/12/02 1354306.5 


N6CC 


975/ 


N79C 
OATF 
OATC 
Vans 
OADO 
0864 
64 
0656 
NCFY 
NCF6 


7F SWS 


7FEME I 
7FFLF] 
7FECU. I 
7FFCFI 
7FEWFE 


7FEJAL 
7RFE JAIL 


7FEFEKAT 
7FFDAT 
7FFRE I 


8-12 


0706 


OAR? 
NAR 
QOANS 
OADK 
ACRY9 
OBSE 
N64) 
0556 
NCE3 
NCFC 


7ESRUS 


7FFMFU 
7FELFEU 
7FECLO 
ZFFCEU 
7FERFE 
ZFFIAQ 
7FE JAG 
7FFKAU 
7FF DAG 
7FEREOU 


OCFC 


1221 
13F8 


N7 eb 


0AR2 


NAAR2 
nas 
NAN 
NCRY 
OBSE 
OKA1 
OKSK 
OCFS 
NCFC 


EB, 


7E Uwe 
7F.SUBI 


12%e2 
124F 


7FURUE 
ZF SUBY4 


1977/12/02 135°346.3 SAF 


1977/12/02 1354306.5 


7FIOTE J1KA 7*eFINI 11C9 
x Z7FUFTO 1202 
7FL81 ,eNG 7FGe! 12°94 
ZF AWRY 1231 7TFRRED 1244 
7FSUR6O 1387 
p FNDCHN 145C 
kk XROGNO 145C€ 
** XRNGNe? 14SC€ 
ex Y¥RNGNS 145C 
x PRNGNS 145C 
PRIAGAS 145C 
* KIINDEF 
zt PRNGOO O0NG 
x CHAIN NAS 
x TFSFIU M6AC 
& Z7EFOFTO O74C 
x Z7FPFIO 0757 
x 7FEFTO 079C 
x ZFIOTE 11RA 
x ZFUFIO 1292 
« PROGO3 145C 
PROGOG 77120200 
FORTRAN M4ED PIS 22/1419 
kk TSTCHI1 1 INK MAP 
-&KSTART 14S5C 
x*xLOW 145C 
zkHIGH 1482 
xxECOMM 0164 
*xCURRENT 1482 
*xEXT NEFS 
Pp 7HCOMM 0000 
Pp ZHREL NO00 
zx RONT 0yn0 
x PRNGND NAY 
C SZFwRK 0000 
Cc s§cCNOMmM N1YA4 
C CAB! N1TAA 
C LAR? O1CE 
PRNGNO 1668 
x CHAIN NoAs 
CHAIN NAS 
x T7FSFTU O6AC 
7FSWES NoALC 7tSrRES N0oCC 
& 7ZFOF TU O74AC 
7TFQWRK TAC 
% 7FPFIQO O7S7 
ZFPAIIS O7SC 7FESTP 0757 
ck Z7FFFYO 479C 
7FAN 0.79C 7EFFFEYTU O79C 
7JFFMAI] ATE 7EFMAQ OATE 
7FELAI QA7C 7EFFLAUY OATC 
7TFFECSI ANADS 7FFCSO ANE 
7FFCAL ADO 7FFCAQ ADO 
7JFEITFI NnAG 7EFE IFO 9864 
7FFJF NRAY 7FFJUFO 0B64 
7FFKFYT 08S6 7FFKEU B56 
7FEOF I ACF9. 7FFDFG OACFY9 
ZFFRAL OCFo 7EFFRAQ OCF6 
x Z7FTUTE 118A 
7ZFTOTE L1RA 7FFINI 1109 
x Z7FUFTQ 1292 
Figure 8-5 (cont). 
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7FSWUS 


7EEME I 
7FFLE1 
7FECLI 
7FECE] 
7EFWFFE 
7FETAIL 
7FF JAI 
ZFFKAI 
7FFDAI 
7EFERE I 


8-13 


07908 


OARC 
NAR2 
OANDS 
NANB 
ACRY 
NKSE 
B46] 
NBS56 
OCF $ 
OCFC 


ZFSRUS 


7FEMEO 
7FELFU 
ZFFCLO 
7FFCEQ 
TEE REF. 
TFET A&G 
7FFJAU 
7TFEKAU 
ZFEDAY 
ZEFRFEU 


120} 
15F 8 


N7 ets 


OAR 
ARE 
OANDS 
NADH 
ACRY 


AKBSE 


Nb6)4 


9656 


OCF 3 
ACFE 
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7FLb1 12eN4 7EGE I 1294 7FUWUF 1202 7FURIIF 1221 


7FAWRTI 1231 7FRRED $244 7FSURI 124F ZFSURG 13F6& 

7FSURO 1587 | 
P FNDCHN 145C | | rs 
wk XYROGNO 145C ae 


xx XROGN?S? 145C 
ex XRONGOS 145C 


xx =XROGO4G 145C 
x PROGOG 145C 
PRNGON4G 145C 


*#KUNDEF 

* PRNGOO 0000 

* CHAIN 0643 . 
* TFSFTU O68AC 

* ZFAFTO O74C 

x ZFPFTQ 09757 

x 7FFFTO 0/9C ; 
* ZFTOTE 11RA 

a 7FUFTO 1202 

* PROGOG 145C 


KAKA KKKKK 
RONT TSTCH1 
KRKEKHRKKERKRKK 
HIGHEST vty S/NIM OF SYMS a) 
KHRRKKKEKNK 
SAF 
KKKKAKKKAKS 
ROOT TSTCH1 BASF 0000 ST 916068 ~eeel HIGH=145C 
KRAAAKKAKKKEK 
OVLY XROGOO # NU BASF 145C ST 1782 ~..el HIGH=140F 
KRKEKKAKKAKS 
OVLY XRAGNe? # O01 tsASF 145€ ST 1612 ~..el HIGH=16FK 
KRaAARKNANAKAH 
OVLY XRNGAS # N2 KHASF 145C ST 145C€ ~seel HIGH=14R6 
WARMER KKKKRK 
OVLY XRAGAY # 03 BASF 145C ST 145C “.eel HIGH=14Re 
RKKEKKKKKKK 
*STZF OF RQAGT ANP STATIC OVLYS= 180F HT PEL RPCA= 62 
RARAAKKAKKSK 
LINK DOWE 
KKKKAKKAKKK 


Figure 8-5(cont). Linker Output for Chained Programs 


Figure 8-6 illustrates the linker directives required to create the bound unit TSTCH1, 
comprising the programs listed in Figures 8-3 and 8-4. 


Figure 8-7 shows the output resulting from the execution of the chained programs. 
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LIB *VL5901>LDD>OBJECT>FRIOR 
LINK PROGOO 


XROGOO DEFINES OVERLAY O (CHAIN 0) 
ENDCHN, $ DEFINES BASE FOR OVERLAYS 
ENDCHN 

ENDCHN 

PROGO1 


ENDCHN 
XROGO1 DEFINES OVERLAY 1 (CHAIN 1) 


PROGO2 


XROGOZ DEFINES OVERLAY 2 (CHAIN 2) 
ENDCHN 
PROGO3 


XROGO3 DEFINES OVERLAY 3 (CHAIN 3) 
ENDCHN 
PROGO4 


Figure 8-6. Linker Directives for Chained Programs 


PROGO APPEARS ON FXFCUTE LINE = CALLS CHAIN 0 
CARD 1 
SUBROUTINE PROGD LOADED 
PROG1 IS CHAIN 0 wHICH CALLS CHAIN 1 
PROG2 TS CHAIN 1 = wHICH CALLS = CHAIN 0 
CARD 2 
SUBROUTINE PROGN LOADED 
PROG! TS CHAIN 0 WHICH CALLS CHAIN 1 


PRNG2 IS CHAIN 1 = WHICH CALLS = CHAIN 2 


PROG3 


CARD 3 


PROGG 


PROGG 


PROGG 


PROG4 


PROG? 


TS 


TS 


TS 


TS 


TS 


CHAIN 


CHAIN 


CHATN 


CHAIN 


CHAIN 


2 


TS CHAIN 1 


WHICH 


USING THE FORTRAN COMPILER 


CALLS 


CHAIN 


CHAIN 


CHAIN 


CHAIN 


CALLS 


CHAIN 


- CHAIN 3 


8-15 


3 


Figure 8-7. Execution Output from Chained Programs 
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Section 9 
Using the Sort 


Figure 9-1 contains a sample session at the operator terminal to sort a file using the Sort 
utility. Sort descriptors are entered through the operator terminal. Refer to the Sort/Merge 
manual for details on the use of the Sort component. 


C :$H: 
SD "1977/02/15 1428" 
($H)RDY: 
CWD *SRTIO2 
($H)RDY: 
“Zrrr06>SORT 
($H)ENTER SORT DESCRIPTION 
FILES: -IF IDSFO6 -OF ODSFO2 -WF “SRTCW2>WDSFO2  ; 
KEYS: CHAR (6) 78 D, CHAR 4 36 ; 
QUIT 
($H)MOUNT *SRTCW2>WDSFO2 
($H) SORT-rrrr-Amm/dd/hhmm 
$H)INPUT FILE : “*SRTIO2>IDSFO6 
$H)RECORDS READ 000350 
H)OUTPUT FILE: *SRTI02>0DSF02 
H)RECORDS WRITTEN 000350 
H)RECORDS DELETED 000000 
H)RDY: 


( 
( 
( 
( 
( 
( 


$ 
$ 
$ 
$ 


Figure 9-1. Sample Sort Terminal Session 


The Sort utility is on volume Zrrr06 and the application files are on SRTIO2. The Sort is 
invoked by entering the pathname, “ Zrrr06>SORT. The Sort description statements are then 


entered. In this example, the work file is not mounted, and a message to mount 
“ SRTCW2>WDSF02 is issued. 
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ACCESS 
ACCESS BY LOGGING IN, 4-1 
ACCESS THROUGH THE OPERATOR OR 
ANOTHER USER, 4-2 
ACCESS THROUGH THE OPERATOR 
TERMINAL, 4-4 
USER ACCESS TO THE SYSTEM, 4-1 


ASSEMBLER 
ASSEMBLER OUTPUT LISTING (SMPMAC) 
(FIG), 6-4 
USING THE ASSEMBLER AND MACRO 
PREPROCESSOR, 6-1 


BATCH 
EXECUTION OF AN APPLICATION FROM 
THE BATCH TASK GROUP, 4-3 


CALL 
CALL FORTRAN ROUTINES FROM AN 
ENTRY-LEVEL COBOL MAIN 
PROGRAM, 7-7 


CALLING 
FORTRAN PROGRAMS CALLING THE CHAIN 
FUNCTION (FIG), 8-7 


CHAINING 
FORTRAN CHAINING, 8-1 


COBOL 

CALL FORTRAN ROUTINES FROM AN 
ENTRY-LEVEL COBOL MAIN 

PROGRAM, 7-7 

COBOL LISTING OF COBFRT (FIG), 7-8 

COMPILING WITH COBOL, 7-2 

SAMPLE COBOL TERMINAL SESSION 
(AC8111), 7-3 

USING THE COBOL COMPILER, 7-1 


— COMMAND 


COMMAIND PROCESSOR AS LEAD 
TASK, 4-2 


COMPILER 
USING THE COBOL COMPILER, 7-1 
USING THE FORTRAN COMPILER, 8-1 


CONCURRENT 
CONCURRENT EXECUTION FROM SEVERAL 
TASK GROUPS, 4-3 


CONCURRENT EXECUTION OF APPLICATION 


TASKS, 4-3 


DATA 
EXECUTION FROM THE DATA ENTRY 
FACILITY (DEF), 4-4 


DEDICATED 
DEDICATED APPLICATION 
ENVIRONMENT, 2-2 


DEF 
RBF AND DEF USER GUIDE TO MANUALS 
(FIG), 1-5 
RBF AND DEF USER MANUAL GUIDE, 2-1 


INDEX 


EDITOR 
EDITOR DIRECTIVE DESCRIPTION, 5-1 
SAMPLE EDITOR DIRECTIVES IN FILE 
SMPCMDFL (FIG), 5-1 


ENVIRONMENT 
ALL-ONLINE ENVIRONMENT, 2-1 
DEDICATED APPLICATION 
ENVIRONMENT, 2-2 
MIXED ENVIRONMENT, 2-2 
ONLINE/BATCH ENVIRONMENT, 2-2 
OPERATOR-ONLY ENVIRONMENT, 2-1 


EXECUTION 

CONCURRENT EXECUTION FROM SEVERAL 
TASK GROUPS, 4-3 

CONCURRENT EXECUTION OF APPLICATION 
TASKS, 4-3 

EXECUTION FROM THE DATA ENTRY 
FACILITY (DEF), 4-4 

EXECUTION OF AN APPLICATION FROM 
THE BATCH TASK GROUP, 4-3 

EXECUTION OUTPUT FROM CHAINED 
PROGRAMS (FIG), 8-15 

SERIAL EXECUTION OF APPLICATION 
TASKS, 4-2 


FORTRAN 

CALL FORTRAN ROUTINES FROM AN 
ENTRY-LEVEL COBOL MAIN 
PROGRAM, 7-7 

FORTRAN CHAINING, 8-1 

FORTRAN LISTING OF FRTRAN 
(FIG), 7-9 

FORTRAN PROGRAMS CALLING THE CHAIN 
FUNCTION (FIG), 8-7 

SAMPLE FORTRAN TERMINAL SESSION 
(MATINV), 8-1 

USING THE FORTRAN COMPILER, 8-1 


GUIDE 

APPLICATIONS PROGRAMMER's MANUAL 
GUIDE, 1-2 

APPLICATIONS PROGRAMMER GUIDE TO 
MANUALS (FIG), 1-3 

GUIDE TO USING THE MANUAL SET, 1-1 

OPERATOR'S MANUAL GUIDE, 1-5 

OPERATOR GUIDE TO MANUALS 
(FIG), 1-4 

RBF AND DEF USER GUIDE TO MANUALS 
(FIG), 1-5 

RBF AND DEF USER MANUAL GUIDE, 2-1 

SYSTEM PROGRAMMER'S MANUAL 

GUIDE, 1-2 

SYSTEM PROGRAMMER GUIDE TO MANUALS 
(FIG), 1-4 


LEAD TASK 


APPLICATION AS LEAD TASK, 4-2 
COMMAND PROCESSOR AS LEAD 
TASK, 4-2 
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LINKER 
LINKER DIRECTIVES FOR CHAINED 
PROGRAMS (FIG), 8-15 
LINKER OUTPUT FOR CHAINED PROGRAMS 


(FIG), 8-9 

LINKER OUTPUT LISTING (SMPMAC) 
(FIG) r 6-5 

SOURCE AND LINKER OUTPUT LISTING 
(MATINV) (FIG), 8-2 

LISTING 

ASSEMBLER OUTPUT LISTING (SMPMAC) 
(FIG), 6-4 

ASSEMBLY LISTING OF PROGRAM CHAIN 
(FIG), 8-7 


COBOL LISTING OF COBFRT (FIG), 7-8 

CROSS REFERENCE LISTING (SMPMAC) 
(FIG), 6-3 

FORTRAN LISTING OF FRTRAN 
(FIG), 7-9 

LINKER OUTPUT LISTING (SMPMAC) 
(FIG), 6-5 

SAMPLE LISTINGS FOR AC8111 
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SOURCE AND LINKER OUTPUT LISTING 
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LOADING 
SOURCE LOADING, 7-2 


LOGIN 
ABBREVIATED LOGIN TERMINAL, 4-1 
DIRECT LOGIN TERMINAL, 4-1 
FULL LOGIN TERMINAL, 4-1 
STARTUP WITH THE LOGIN 
FACILITY, 3-1 


MACRO 

MACRO PREPROCESSOR OUTPUT (SMPMAC) 
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SAMPLE OF UNEXPANDED MACRO ROUTINE 
(SAMPL1) (FIG), 5-10 

SAMPLE OF UNEXPANDED MACRO ROUTINE 
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SAMPLE OF UNEXPANDED PROGRAM WITH 
MACRO CALLS (SMPMACP) (FIG), 5-9 

USING THE ASSEMBLER AND MACRO 
PREPROCESSOR, 6-1 


MANUAL 
APPLICATIONS PROGRAMMER'S MANUAL 
GUIDE, 1-2 
GUIDE TO USING THE MANUAL SET, 1-1 
OPERATOR'S MANUAL GUIDE, 1-5 
RBF AND DEF USER MANUAL GUIDE, 2-1 
SYSTEM PROGRAMMER'S MANUAL 
GUIDE, 1-2 


MANUALS 
APPLICATIONS PROGRAMMER GUIDE TO 
MANUALS (FIG), 1-3 
OPERATOR GUIDE TO MANUALS 
(FIG), 1-4 
RBF AND DEF USER GUIDE TO MANUALS 
(FIG), 1-5 


INDEX 


MANUALS (CONT) 
SYSTEM PROGRAMMER GUIDE TO MANUALS 


| MULTITASK 


SAMPLE ASSEMBLY LANGUAGE MULTITASK 
PROGRAM (BRDCST), 6-6 


ONELINE/BATCH 
ONLINE/BATCH ENVIRONMENT, 2-2 


OPERATING | 
OPERATING ENVIRONMENT, 2-1 


OPERATOR 

ACCESS THROUGH THE OPERATOR OR 
ANOTHER USER, 4-2 | 

ACCESS THROUGH THE OPERATOR 
TERMINAL, 4-4 

OPERATOR GUIDE TO MANUALS 
(FIG), 1-4 

OPERATOR TERMINAL SESSION FOR 
COBFRT (FIG), 7-9 


OUTPUT 
ASSEMBLER OUTPUT LISTING (SMPMAC) 8 
(FIG), 6-4 | 
EXECUTION OUTPUT FROM CHAINED 
PROGRAMS (FIG), 8-15 
LINKER OUTPUT FOR CHAINED PROGRAMS 


(FIG), 8-9 

LINKER OUTPUT LISTING (SMPMAC) 
(FIG) r) 6-5 

MACRO PREPROCESSOR OUTPUT (SMPMAC) 

SOURCE AND LINKER OUTPUT LISTING 
(MATINV) (FIG), 8-2 

PROGRAM 

ASSEMBLY LISTING OF PROGRAM CHAIN 

(FIG) 8-7 


CALL FORTRAN ROUTINES FROM AN 
ENTRY-LEVEL COBOL MAIN 
PROGRAM, 7-7 
SAMPLE ASSEMBLY LANGUAGE MULTITASK 
PROGRAM (BRDCST), 6-6 
SAMPLE CARD-TO-DISK PROGRAM, 7-1 
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FORTRAN PROGRAMS CALLING THE ‘CHAIN 
FUNCTION (FIG), 8-7 
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PROGRAMS (FIG), 8-15 
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(FIG), 8-9 


RBF 
RBF AND DEF USER GUIDE TO MANUALS 
(FIG), 1-5 
RBF AND DEF USER MANUAL GUIDE, 2-1 
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SAMPLE COBOL TERMINAL SESSION 
(AC8111), 7-3 

SAMPLE EDITOR DIRECTIVES IN FILE 
SMPCMDFL (FIG), 5-1 

SAMPLE FORTRAN TERMINAL SESSION 
(MATINV), 8-1 

SAMPLE LISTINGS FOR AC8111 

(FIG), 7-4 

SAMPLE OF UNEXPANDED MACRO ROUTINE 
(SAMPL1) (FIG), 5-10 

SAMPLE OF UNEXPANDED MACRO ROUTINE 
(SAMPL2) (FIG), 5-11 

SAMPLE OF UNEXPANDED PROGRAM WITH 
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MACRO CALLS (SMPMACP) (FIG), 5-9 
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